t) 

LABEL 0000O0O0OPRIMER00175USI8CC EXECUTE. GF3 JECT /•<£ AD; F 1 LE SUURCEF I L E = b YMBUL/DUMPANL; END* 



OBJECT /READ 



o 
Q 



n 

2 
3 

4 
5 



a 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

(8 

49 

50 

51 

52 

S3 

54 

55 

56 

5? 



SyilL^MMS 



gMAA* 



*d~ &#*xbdh 



COMMENT: * TITLES B5500/U5700 MAHK XIV SYSTEM NEt-EASE 

* FILE ID! SYMBOL/UUMPANL TAPE 10: S YMB0L2/F ILEOOO 
* THIS MATERIAL IS PHUPKjtTARY TQ dURHUUGHS CORPORA" 



ION 



OG000001 
OOC00002 
00000003 



* AND IS NOT TO BE REPRODUCED* USED* UR DISCLOSED 

* EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON 

* WRITTEN AUTHORIZATION OF THE PATENT DIVISION OF 



* BURROUGHS CORPORATION* DETROIT, MICHIGAN 48232 

* 

* COPYRIGHT LCJ 1 97 1 , j972 til RR UUGHS CORPORAT I ON 



00000004 
00000005 
0QU00QQ6 



* 

* 



* AA220206 



AA332366 AA386657 

DUMP/ANALYZE 

LAST PATCHE D 11 / 21/73 



O0OUO0C7 

00000008 
00U 0QQ9 



** 



SEVERAL OPTIONS ARE AVAILABLE FUR CONTROLLING 1 HE ANALYSIS 
OF A MEMORY DUMP. THEY MaY BE CLASSIFIED I (\ T Q FOUR CATEGORIES; 



00000010 
00000012 
00000013 



I. THOSE WHICH SPECIFY THE FORMAT 
SPLASH DUMP*0CTAL DUMP, ALPHA/OCTAL 
EIT H F R -SI NG L Y O R DOURL Y S PACED. 



OF THE PRINTOUT OF MEMORY! 
DUMP, OR ALPHA OUMPJ 



00000015 
OQ000020 

- 00000025 - 



00000030 

OOOOOOAO 

-00000050 



II. THOSE WHICH INCLUDE 
TNCl UOFP OR FXCLUPFP: 



OR EXCLUDE AREAS OK MEMORY NOT OTHERWISE 



1. INCLUSION OF AVAILABLE AREAS. 

2. EXCLUSION OF' 

_A_. M CP CODE ARFAS. 



B. NORMAL STATE CODE AREAS. 

C. NORMAL STATE AREAS OTHER 
SPECIFIC MIX INDFX WHERE THE 



THAN TnUSE rttLATING TO ONE 
MIX INDEX IS SPECIFIED BY THE 



US E R . 



ALPHABETICALLY AND BY PRT LOCATION, 
_Ly_! THOSE WHICH CONTROL THF nJMPlNG OF STACKS: 



1. EXCLUSION OF ALL NORMAL STATE STACKS EXCEPTING THE ONE 
BELONGING TO THE SAME MIX INDEX AS THE ONE SPECIFIED BY THE USER. 
_2_i INCLUSION OF A USFR SFLECTED "STACK" flJjQ AHlCH ThF 



ANALYZER WOULD BE UNABLL TU LOCATE ulTHCUT THE USER"S ASSISTANCE, 
THE MAJORITY OF OPTIONS MAY BE SET USING A COMMON CONTRUL 



card; a few may be set only via the 
contents of certain prt cells which 

CONTROL FUNCTIONS. 



"IN" 

have 



MESSAGE TO ALTER THE 
BEEN RESERVED FOR 



THE COMMON CONTROL CARD IS ASSUMED TO CONTAIN Als, EIGHT 
NUMBE R — IF LESS THAN EIGHT APPEAR, LEADING ZEROES ARE 



DIGIT 



AUTOMATICALLY 
TWO GROUPS: 



SUPPLIED. THE ANALYZER SEPARATES THE 3 DIGITS INTO 



A. THE 5 LEFT-MOST DIGITS ARE EXPECTED Ty BE *OCTal* DIGITS 
WHICH REPRESENT THE TOP'OF-STACK ADDRESS OF THE USER SPECIFIED 
"STACK" AREA. IF ANY DIGIT EXCEEDS "7" Or if ALL FIVE ARE "0"* 
ONLY STACKS LOCATED BY THE ANALYZER WILL BE DUMPED. OTHERWISE* 
ONE ADDITIONAL "STACK"* PROVIDING IT ALREADY HAS NOT BEEN DUMPED* 
WILL BE DUMPED STARTING AT THIS ADDRESS AND CONTINUING UNTIL 



200(DECIMAL) WORDS BELOW ff HAVE BEEN PRINTtCl THE STACK IS 
ASSUMED TO BE A CONTROL STATE STACK FoR PURPOSES OF STACK 
ANALYSIS), SHOULD MCRE OR uE3S STACK 3E DESIRED* THF AMOUNT 



C IN DECIMAL) OF STACK TO ANALYZE CAN BE ENTERED INTO PRT CELL 

27CQCTAL) USING THE -"IN" MESSAGE'S' 

IN MQST CASES, THE T0F-UF-5TACK VALUE USED MAY BE THE SFTTING 



00000055 

OOOOOOfiC 

-OHJJJU00 7Q. 



00000080 

ooooouo 

00000120 



D. ENTIRE CONTENTS OF MEMORY 

III. THOSE WHICH CAUSE OMISSION UF CERTAIN SECTIONS OF ANALYSIS: 
_U — OMTSSTflN OF THF PRINTOUT OF MCP PRT IQFNT IF ILRS, SORTED 



OOU00130 

ooooouo 

- 0000015 



00000155 
00000160 
0000017-0- 

00000180 
00000205 
0000JQ2JL0- 



00000220 
00000230 
000Q0P40 



00000250 
00000255 
QQ0 Q ^ 6Q 



00000270 
00000280 
Q00QQ290 



00000295 
00000300 
00000310 



00000320 
00000330 
00000335 



00000340 
00000350 
0000360 

00000370" 

00000380 

00000390 



00000400 
00000410 
00000420 



000C043C 
00000435 
Q0 00 44Q 



>r 



OF THE "S" REGISTER TAKEN FROM THE UISPLAY PANEL Al THE TIME 0000044b 

OF THE HANG. IF NO TGP-OF-STACK IS SPECIFIED THE ANALYZER WILL OBTAIN 00000450 
QNt- FROM THE CONTROL 5TATF, wSfiW LUCAfFn IN (,FLI,,7. ThF STACK 0lUI0iU54 



OBTAINED IN THIS MANNER IS 
LINKS HAVE BEEN CLOBBERED. 



GENERALLY OF INTEREST* ESPECIALLY WHEN 



00000452 
00000453 
00000455 



B. THE RIGHT-MOST 3 DIGITS. ARE iNTEKpRETEO AS DECIMAL DIGITS 
AND SERVE TO SET THE MAJORITY UF ANALYZER jpTlUMS, GENERALLY 
SPEAKING, THESE OPTIONS ARE INTEGRAL POWERS OF 2, ARE INDEPENDENT 



OF ONE ANOTHER AND MAY THEREFORE BE USED ADDlTIVELY, THAT IS* 
THE COMBINED FUNCTIONS OF COMMON VALUES 2,16*32* AND 64 
COULD BF INVOKFD BY "COMMON* H 4" t 2+ 16+32+64 ) . THE FxCrPTIQNS 



00000460 
00000470 
00000460 



00000490 
00000500 
000Q0S1Q 



10 

11 

12 

13 



14 
15 
16 

17 
18 
19 
20 
21 



23 
24 
25 



26 
27 



28 
29 

30 
31 
32 
33 
34 
35 
36 
37 ~ 



38 
39 



40 
41 
42 
•3 



45 
»6 
47 
«8 



49 
SO 
51 
52 
53 
54 



55 
56 



TO THIS RULE 
DESCRIBED IN 



WILL BE 
DETAIL. 



ELABORATED AFTER EACH COMMON OPTION IS 
CUM HON CAR [J OPT IQN 3 . 



00000520 
00000530 
00000540- 



NOTE* IN THE DESCRIPTION OF EACH OPTION* IT IS ASSUMED THAT A 
STANinARD MEMORY DUMP ANAiYSIS IS OBTAINED *£XC£PT« FOR THE 



DIFFERENCES 
ANALYSIS IS 



00000550 

00000560 
00000570 



GENERATED BY THAT 
ONE OBTAINED wlTH 



PARTICULAR OPTION. A 
NO COMMON VALUECI. L, 



"STANDARD" 

COMMON=0), 



00000580 

00000590 

.QUOUQftO-Q. 



COMMQN*0. 
YIELDS 



A STANDARD -ANALYSIS. AN MCP/PRT FILE IS REQUIRED. 



COMM0N=I. 

YIELDS A 
REQUIRED. A 



00000610 
00000620 
00000625- 



"SPLASH'VUNAnAlYZED dump of memory, no MCP/PRT IS 
"COMMENT" ENTERED WHEN THE DUMP TAPt HAS CREATED 



00000630 
00000640 

000UQ650 



IS ALSO PRINTED. 
COMMONS. 



00000660 
00000665 
00000*70 



DUMPS ALL AVAILABLE AREAS. 
CQMMQN = 4. 



EXCLUDES ALL NORMAL STATE OBJECT CODE. 
THIS INCLUDES ALL PROGRAM SEGMENTS ASSOCIATED WITH A 
MIX INDEX AND ALL INTRINSIC SEGMENTS, 



0Q00068Q 

00000/65 
00000770 



00000780 
00000790 
00000800 



CDMM0N=8. 
EXCLUDES AlL MCP OBJECT CODE. 



00000dl5 
00000820 

000008 , 3 



CQMM0N*16. 

CAUSES CERTAIN ARRAYS SELECTED BY THE USER TO BE DUMPED. 



SEE THE COMMENT AT SEQUENCE #00807460 FQR UETAILS. 
C0MMQN*32. 



00000845 
00000850 
00000860 



INHIBITS THE OUMP OF TH£ MCP PRT IDENTIFIERS SQRTEO 
ALPHABETICALLY AND BY PRT LOCATION. 



00000870 
00000875 
00000880 



C0MM0N=64. 

FIELDS AN OCTAL-ONLY DUMP OF MEMORY FORMATTED SIX WQRDS/LINE 



00000890 
00000900 
QQ0Q09Q5 



00000910 
00000920 
00000945 



C0MM0Nsl28. 

YIELDS AN ALPHA/OCTAL DUMP OF M£MQRY, EACH PRINTEO LINE 
CONTAINS FOUR WORDS OF OCTAL FOLLOWED* ON THE SAME LINE* BY 
THEIR ALPHA EQUIVALENT. 

C0MMQN=256. 



00000950 
00000960 
00000970 



00000980 
00000985 
00000990 



LAST PATCHED 12/1 1/73 
YIELDS AN ALPHA DUMP OF MEMORY FORMATTED TWELVE WORDS 
OF ALPHA PER PRINTEO LINE. . ,..,.. 



00000999 
00001000 
00001010 



36 

37 

38 ' 

39 

40 

4, < 

42 

43 

44 I 

45 

46 

47 < 

48 

49 

50 I 

51 

52 

S3 I 

54 

55 

56< 

57 



9 

10 
11 
12 
13 



H6 
17 
18 
19 
20 
21 



23 
24 
25 
26 
27 
28 
29 



30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 



52 
53 
54 

55 



C0MM0N=384, 

CHMPlFTFiY INHIBITS THE PR T N T f H ) T OF THE CONTENTS OF M EMORY 



THIS DOES NOT IMPLY THAT MEMORY IS NUT ANALYZED* VERIFICATION 
OF MEMORY LINKS IS MADE* THE BED AND SLATE ARE CHECKED* 
STACKS ARF LOCATEn*FTC. __ 



00001015 
00001020 
00001030- 



00001040 
00001050 
00001060 



C OMMO N^!? 



CAUSES THE CONTENTS OF 
LAST VALID WORD POINTED TO 
ONLY WHEN AN MnP PATrH.THF 



MCP. 



PRT CELLS WHICH EXERCUE CONTROL FUNCTIONS 



NOTEJ PRT LOCATIONS SPECIFIED REFER To OCTAL PRT LOCATIONS FQH 
USE IN AN "IN" MESSAGE. 



PRT 



25, 

TH IS 



CELL IS NORMALLY SfT FROM fHF HltiHT-MOST i niqTS AHI^H 



APPEAR ON A COMMON CARD* HOWEVER* THEY MAY BE EXPLICITLY SET 
AND/OR MODIFIED DURING EXECUTION OF THE ANALYZER VIA THE "IN" 

MFSSAGE. . . . : 



PRT 



26, 
THIS 



C ELL CAN BE USED TO ENABLE A DlMP-B Y-M 1 X-l nDE X . IF SET 



NOTE THAT IF THE CONTENTS OF THIS CELL DOES NOT CORRESPOND TO A 
VALID MIX INDEX* *N0* NORMAL STATE STACKS mLL BE DUMPED NC1H 
WILL ANY NORMAL STATE AREAS ASSOCIATED wITh ANY Mix INDEX HE 



PRINTED. 
PRT 27, 



IF MADE NON-ZERO* THEN THE DECIMAL VALUE ENTERED IN CELL 27 
WILL DETERMINE THE AMOUNT OF STACK DUMPED 8EL0W ThE TOP-OF-STACK 
VALUE, IF LEFT ZER@* THE DEFAULT AMUyNT OF STACK PuMPEpCANO 



ANALYZED) WILL 8E 20CCDECIMAL) WORDS 
PRT 30. 



00001070 
00001072 
0000107 3 



THE "ARGH" ARRaY TO BE PRINTED UP TO THE 00001074 
5Y "YECH". THIS INFORMATION IS PRESENT 00001075 
"ROTO" PATr.H* HAS REEN POMP T I FA INTO TMF anQ())n7 ^ 



PRECEDENCE CF OPTIONS AND bUUGE ST I QNS FUR COMBINING THEM 
AS STATED EARllER. COMMON UPTIUimS MAY ML USEU SEPARATELY 



OR IN COMBINATION, ALTHOUGH MOST COMBINATIONS ARE ALLOWED* 

ARE IMPORTANT EXCEPTIONS. THE RULES ARE* 

1. A COMMON VALUE OF 1 PRECLUDES THE USE OF ALL OThERS. 



THERE 



2. A COMMON VALUE OF 512 PRECLUDES 

3. A COMMON VALUE OF 3b4 PRECLUDES 
COMMON VALOES FxCFPT FOR \6 ANU 32. 



SUM OF 128+256. 

4. COMMON VALUES 2*4,8*16* AND 32 ARE 

ADDITIVE IN ALL POSSIBLE COMBINATIONS. 



THE USE OF ALL 

THE USE OF «LL 

NOTE THAT 38 A 



OTHERS BUT 
REM A ININCi 
IS ThE 



TOTALLY INDEPENDENT AND 



00C01077 
00001078 
OOOOIOBO 



00001085 
00001090 

QQ0Q11QQ 



00001HO 
00001120 

Q00Q1 no 



00001140 
00001150 
000011 6 



00001165 
00001170 
00001 lfiO 



TQ A NON-ZERO DECIMAL NUMBER EQUAL TO THE MIX INDEX OF A JOB IN 
THE MIX AT THE TIME THE DUMP IS TAKEN. IT WILL CAUSE MEMORY AREAS 
BELONGING TO QTHER Mix INDEXES TQ BE EXCLUDED FROM THE ANALYSIS. 



00001190 

00001200 
QQ0Q121Q 



0000122Q 
00001230 
QQ001 24Q 



THIS CELL MAY BE USED UNLY IN CONJUNCTION nilh THE 
PREVIOUSLY DESCRIBED COMMON CARD CONVENTION OF SPECIFYING AN 
OCTAL STACK ADDRESS A S THE FIRST 5 DIGI TS OF THE COMMON VALUE 



00001250 
00001255 
00001260 
00001270 
00001280 
00001290 



00001300 
00001310 
00001320 



THIS CELL* IF SET TO 1* WILL CAUSE THE PRINTOUT OF MEMORY 
TO BE DOUBLE*SPACED, OTHERWISE* THE PRINTOUT IS SINGLE-SPACED. 



00001330 
00001335 
00001340 



00001350 
00001360 
00001370 



00001380 
00001390 
Q Q0Q140 



00001410 
00001420 
00001430 



00001435 
00001440 
00001450 



00001460 
00001530 
0QQ Q 1 54Q 



9 
10 



12 
13 



15 
16 
17 
18 
19 
20 
21 



23 
24 



25 
26 



27 
28 



29 

30 



31 

32 

33 

34 

35 

36 

37 " 

38 

39 



42 
43 



46 
47 
48 



49 

50 



51 
52 
53 
54 



55 

56 



SOME SPECIFIC EXAMPLES UF lUMMON UP f 1 N b 



A, «C0MM0N=35721432". 

THIS CAUSES A "STACK" AT 35721 TU BE DUMPED ALONG WITH 
OTHER STACKS; NONE UF MEMORY, IS PRINTFD f 3na ) . THE MC.P PRT 



00001550 
00001560 
QQUQ1505. 



IDENTIFIERS ARE NOT PRIN.TEUC 32 ;* ANL SELECTED AnKAYS ARE 
0UMPE0C16), THIS COMBINATION MIGHT BE OSLO TO 
MINIMUM OF OUTPUT AFTFH A MFMhRY HUMP HAS hFFN 



00001570 

ooooisbo 

_Q£LiLU15_9-Q.. 



PROVIDE A 
ONCF. ANALYZFn 



AFTERWARDS FOUND TO HAtfE MISSED A STACKClN THIS CASE* 
LOCATED NEAR ADDRESS 35?2l )♦ 
A. «rnMMnis»ai9-w T s " ■ ■ ■ 



JtUUJ_ 



00001600 

00001610 

-OflMlft2QL 



THIS ELIMINATES ALL OBJECT CODE FROM ThE PRINTOUT OF 
MEMORY, 
JL. "C0MMQN*66", 



00001630 
00001640 
00001650- 



THfS ENSURES THAT AVAILABLE AREAS 
AND PROVIDES THAT MEMORY IS PRINTED IN 
JDj "CQMMQNsB". 



ARE ALWAYS PRINTEDC2) 
OCTAL FORMAT QNLYC64). 



00001660 
00001670 
-OOJJ.Q1690 



THIS TOGETHER WITH PRT 26 SET TO A VAlIU MIX INDEX REDUCES 
THE AMOUNT OF OUTPUT OBTAINED DURING A MIX-ONLY OUMp, NO 
MCP CO DE IS PRINTED LEAVING ONLY NON-HCP CODE A REAS BLSIDLS 
THOSE RELATING TO THf MIX INDEX BEING DUMPED. 
STATE STACK DUMPED IS THE ONE bELONGlNG TO THE 
INDEX. 



00001700 
00001710 
00001730 



FINALLY* THE ONLY 
PARTICULAR MIX 



00001740 
00001750 
0C00176Q 



N0RMAL00OO1770 

00001790 

QJ3O0JLB.CJ2 



PROCESSING MULTIFILE DUMP TAPES 



00001900 
00003000 
00003005- 



TKE ANALYZER WILL AUTOMATICALLY PROCESS, IN A GIVEN RUN* ALL FILES 00003010 
ON A "DPMT" TAPE IF LABEL EQUATION 15 MADE TO ANY FILE BEYqnD THE 00003020 
FI^ST ONE. THE ORDER OF ANAiYSlS IS OPPnsiTF THAT OF CRFation. FnR nnon3Q3o 



EXAMPLE* IF LABEL EQUATION IS M A DE TO THE FOURTH FILE* "FILE MDUMP* 
MEM0RY/DUMP0O4", THE FOURTH FIlE IS FIRST ANALYZED* THE THIRD NEXT* 
THE SFCUND AFTER THAT ONF AND THE FiHST F I L l- L. AST . AS PROPOSING Or a 



NEW FILE IS BEGUN, A MESSAGE IS WRITTEN TO THE 
MAY BE DISCONTINUED IF NO FURTHER FILES ARfc. TO 



CONSOLE SO THAT 
BE ANALYZED. 



00003040 
00003050 
QQ0Q3Q6.CL 



THE RUN 



00003070 
00003080 
00003090 



A COMMON VALUE MAY BE INCLUDED IN THE CCMkENT PORTION OF THE 00003100 
REMARKS ENTERED AFTER A "L-PmT" COMMAND OR AFTER KEYING IN THE UNIT 00003110 
WHEN USING THE MEMORY DUMP DECK. THE SYNTAX IS? "CUMMONs"<COMMQN V ALUE>000031 ?(i 



* WHERE •'COMMON" MA¥ BE ABBREVIATED AS "COM" AND MUST BEGIN NO LATER 

THAN THE UO"T"H CHARACTER OF THE MESSAGE. A COMMON VALUE ENTERED 

I N THIS MANNER OVERRIDES A NY WHICH MAY BE SUPPLIED BY LABEL EQUATION. 



ONE EXAMPLE IS* "DPMT C0MM0N=36; ALL JOBS APPEAR ASLEEP," 
BEGIN 



00003130 
00003140 
00003150 



BOOLEAN COMMON; 

INTEGER PRT26I DEFINE 0NEMlX=PRT26# * % FOR DUMPING 

INTEG ER PRT27 J DEFINE MYSTACKSUEePRT 27#J % IF XQ* 



00003160 
00003170 
00003800 



ONLY ONE JOB 

AMT BELOW MYSTACKADR 



00003900 
00004000 
00004100 



B OLXAN PRT30; DEFINE DUU&LE5pACE = PhT 30* 7% DBL--SPACE DUkP OF MEMORY 00004200 
BOOLEAN PRT31;* RFE 00004300 

BOOLFAN PRT32;% USED FOR DEBUGGING THE ANALYZFR ; 00004400 



INTEGER MYSTACKADR;* IF COMMON GTR MAxCOMMONVALUE* IT PNTS TO A STACK 00004500 
DEFINE DUMPAVAIL*C0MM0N, [46 1 13#J % C0MM0N»2 OUMfi AVAILABLE AREAS 00005000 
DE FINE NPNQRMA1 CODEaCOMMOM. 1 45 M . ]»jj C0WM0N*4 PONT HUMP TYPE 1,7.13 CDDE000Q6O0Q 

00007000 

00008000 
nnco spnn 



DEFINE N0MCPC0DE=C0MMCN.[44; ll»}% B=OONT DUMP McP CODE C TYPE* 1* M IX = ) 
DEFINE DUMPTABLES«C0MM0N.t43»l]#*X l6sDUMP SELECTED ARRAYS 
DEFTMF n QNT0UMPRTsCnMMnN T f.4?:i3**fcLLMMtiN«^p STOPS DP CF PRl 



DEFINE DUMPOCTAlONLY»COMMON.C41*13#;* ^^unconditional octal only DUMP 
DEFINE DUMPALPHADCTAL«COMMON. [40*11*^% 128«DUMP MEMORY IN ALPHA/OCTAL 
DEFINE OUMPALPHAQNLYgCQMMQN.t39U3*;X 256»QuMP MEMORY IN ALPHA ONLY 



00010000 
00011000 

00012000 



8 
9 
10 

11 



'■17 
18 
I9~ 
20 



25 



27 
28 
29 

30 

3l" 

32 



34 
35 



36 

37 " 



41 
42 



49 
50 



52 
53 



56 



DfcKlNE NODUMPsREAL(CG*MON).[39:23«3*J* 3 8 A = G M I T UUMF OF MEMORY 00012500 

DEFINE DUMPCESSP00L0MY»CnMM0N.C3a*li#;x 512=DUMP ONLY ThE "ARGH" ARRAY 00013000 
DEFINE MAXCDMMQNVAI.UFs10?-^i» QXK UAQXLO 



FILE IN DISK DISK SERIAL "MCP" "PRT "(2# 30 ) ; 
FILE IN MDUMP 2(2,533); * DlSK«533* TAPE«513 
FILE SPQ 11(1,18); 



FILE P 4(3,15); 

PROCEDURE PRINTCOMMONVACUF.S; 
BEGI N 



00016500 
00016510 
QQ0 16 52Q 



INTEGER I; 

SWITCH FORMAT COMINFO:* 

f///"TH£ CnMMHN VALUES AV ATI APlLtr 



00016530 
0OO17OC0 
00017010 



ARF<"/)f 



("CQMMONsO 
("CQMMON=l 
("CQMMON=P 



YIELDS A STANDARD MEmURY DUMP AND ANALYSIS,"), 
YIELDS A SPLASH DUMP h J, T h NO ANALYSIS."), 
PRINTS AVAI L AB L E AREAS,"), , 



00017020 
00017030 
0001 70 00 



("COMMON** OMITS NORMAL STATE CODE SEGMENTS,"), 
( W C0MMQN»8 OMITS MCP CODE SEGMENTS,"), 
( W CQMM0N»16 CAUSES CERTAIN USER DEFINED ARRAYS TO 



00017050 
00017060 
QQ01 707Q 



BE PRINTED."). 



00017080 
00017100 

nooi7uo. 



("C0MM0N=32 OMITS THE PRINTING bF THE SORTED MCP PRT I DENT IF IERS , " ) , 000 1712Q 
("COMMON^ CAUSES MEMORY TO BE PRINTED ENTIRELY IN OCTAL."), QQ01713Q 
("CQMMQN=i2fl CAUSTS MfmQRY TO bL PRTNTFH fnTIRfiY T.\ ai PHa/Qpt a. t 'M . nnO 1 7 j an 



("C0MM0Nc256 
("C0MMQN*384 
f "COMMISSI? 



CAUSES MEMORY TO BE PRINTED E*UREl.Y IN AlPHA,"), 00017150 
CAUSfS NONE OF THE CONTENTS UF MEMORY TO BE PRINTED*" > ' 00017 160 
DISPlAYS THE CONTENTS nF THF ARtiH ARRAY."/). 00017)70 



("FOR ADDITIONAL INFORMATION, CONSULT ThE FIRST SEVERAL % 

"PAGES OF THE F I LE * SYmBOL'DUMPAwL. " ) ; 

FOR H=0 STEP 1 UNTIL 13 DJ wRlTcf P, COMI NFO T I 3 ) i 



END PRINTCOMMONVALUES; 

BOOLEAN DONTPRINTLINKS,MYSTACKDUMPEO; 

FORMAT FlNI(49("+"), w END OF DUMP ANALYZE 



oooi7iao 

00017190 
00017200 



>49( 



•»*« 



m_ 



integer prtmax#intmax,infomax; 

define prtbase*129#;j!first prt cell allocated 3y espql 

define actualprtbasesl 12jllj first prt cell as per mcp define 



00017210 
00018000 
00023000 



DEFINE PRTSMAXMOO** % UPPER LIMIT OF PRTS ARRAY 

REAL LEVEL>SU8LEVEL»VERSI0N; 

INTEGFR KLASSiS IDFNTTFIFR CLASS, AS OETERMINFO BY ESPOl 



00024000 
00025000 
00026000 



INTEGER NAMESIZE'NAMSSIZE; 

DEFINE NSNAMECNSNAMEl]=NAME[NSiNAM£l]. [8! 1Q J #; 

INTEGER INAM ES IZE, INANSS !ze; 



00027000 
00028000 
noo?9noo 



DEFINE ISNAMEClSNAME13*lNAM£ClSNAM£n,C8S103#; 

ARRAY SEGZER0(0»29]; 

BOOLEAN MCP;X FILL/PRT DETERMINED WHAT MODULES WERF INCLUDED 



00030000 
00031000 
QQ0J2 QQQ 



STREAM PROCEDURE M8VE(S> D, rt ) ; ;ALUE WJ 

begin siiss; di:=d; dsss w wos ; enu move; 

PROCEDURE fHUSTCQMMONJ 



00033000 
00034000 
00035000 



BEGIN 

REAL MY,D; 
ARRAY TCOlOi; 



00036000 
00037000 
QQlMQlOQ 



FORMAT F("X"M5>", M *Xl); 

REAL STREAM PROCEDURE GCTDECCC); VALUE c; 
BEGIN SI»L0C C; DI+LCC OCTCEc; DS»aOEC 



00040110 
00040120 
OOP 40 130 



£Nu; 



BOOLEAN STREAM PROCEDURE NQT50CTAQESCC )> VALUE C* 

BEGIN SJ>LQC Ci 5(IF 3C GTR "7" THEN BEGIN TALLYMi 
END ELSE SI»S!*1)J N0T5QCT ADES»TALlY END; 



OQOnOUQ 
00040150 
00040160 



JUMP OUT 



STREAM PROCEDURE CECQC T( D, Ul , 02 )i VALUE 0; 

begin si«-LOc q; ui*-oi;ds*5gct;di<-u2;ds«-3oct end; 



00040170 
G004018Q 
00040190 



IF NOT50CTADES(D*OCTDEC(COMMON))THEN D.CU29U0; 

DECOCT CO* MY, COMMON)* 

I F MY«Q THEN MYSTACMDR«- l ELSfc 



00040200 
00040210 
0Q0402 2Q 



00040230 
00040240 
Q Q04 . 250 



h 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 



19 
20 
21 
22 
23 
24 
25 



26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 



37 
38 
39 

40 
41 
42 



45 
46 
47 
•8 



49 
50 



51 
52 



53 
54 



55 
56 



BEGIN * CONVERT FIRST 5 DI'ilTS QF" COM as IF THEY WERE OCTAL DIGITS 00040260 



WRITE(T[*]>F,MY); 
READfTrriy/fMYbTACKAnHW 



00040270 
Q QOWfl U. 



end; 
end bustcommon; 
procedure readarray(w0huslze>aname>da5£)j 



VALUE WORDSIZE'BASE; 
INTEGER WORDSIZE'BASE; 
ARRAY ANAMEC*]; 



00040290 
00040300 

ooomoo o 



BEGIN 

INTEGER USEGS#N; 
ARRAY BUFt0t29i; 



00042000 
00043000 
00044000 



NJ=WORDSIZE MOD 30* 
SEGS:=CW0RDSIZE+29) 
SFGS»= SE GS- W 



00045000 
00046000 
00047000 



OIV 30> 



FOR I I »0 STEP 1 UNTIL S£GS DO 
BEGIN 
REAnfDTSK,30.RUFr»TH 



00048000 
00049000 
Q005Q000 



00051000 
00052000 
00053000 



M0VE(BUF#ANAyECBASE+30*I]»lF I *SEGS OR N=0 THEN 30 ELSE N)> 00054000 
END/ 00U55000 
TF PRT32 THEN BEGIN HRl TEf "[ PAGE J ); WR I rF. t P E UBL 1 , <"ri ASF-"# 0OU56no n 



15, M SIZEs w »l5>*8ASE»wQR0SIZE); FOR U*3AS£ STEP 1 UNTIL 
BASE+WORDSIIE -1 DO BEGIN MQVECANAMEt U*BUFC0J,1)J 
HRTTFfP,1..BilFr»11 FNn ENfU 



00057000 
00056000 
onosonon 



end of readarray; 
bustcommon; 

CtlMMFNTtTO GET nPT I HNS ,USE"f MT X ) I N2 J" Ai\iO/f.]rt r.ilMMOiM CON TR OL CARP? 



IF COMMON THEN NAMESl ZE JsNAMSSl ZE |«INAME SI ZE |*INAMSSI ZE is 1 ELSE 

BEGIN 

READ ft PR A YC 30» SEGZE R QC * 3 1 ) ? 



OOOoOOOO 
00061000 
00063000 



CLOSE(OISK); 
LEVELS="2"; % 1 
SUBLFVELt»"OQ"; 



00064000 
00065000 
0Q 66Q00 



DIGIT 

» 2 DIG I T S 



version:= m b"; % 

comment each time analyzer is changed increment alphabet i c all y; 

MCPtaB00LEA^SEGZER0El3);t COMPlLE-rlME OPTIONS 



00067000 
00068000 
QQ06e iQQ 



NAMESlZElsSEGZER0[2J + i;» # OF MCP PHI CELLSiABCJvt (?200> 
NAMSSIZE«=SEGZER0C3];% » QF WQRUS TrlE MCP IDENTIFIERS OCCUPY 
INAMESlZEl=SEGZERQ[a]+i;% g OF INTRINSICS 



00068200 
00068300 
0006900Q 



lNAMSSlZ£l=SEGZER0t5];* 
END SEGZEROSTUFFI 
INF0MAX;«4xPRTSMAX*3; 



< OF WQRDS THE INTRINSIC IDENTIFIERS OCCUpY 



OOOOOOOO 
00071000 

ooo/ 2 nog 



%%%%%%%%%% IMNEW BLOCK BEGINS %*,%%%%%%%%%%% 



% % % 
BEGIN 
LABEL EQPRQr,; 



00073000 
00074000 

00078000 



LABEL RESTART, XX; 
INTEGER I; 

real r; 



000/9000 
00080000 
00060400 



REAL AUXTYPE; 
BOOLEAN SGLTOG; 
BOOLEAN NODUMPTJG; 



00080500 
00081000 
00062000 



BOOLEAN N0M0* MULT I » REPEATING, RELOAD/ 

ARRAY PRTNAMEtOMj;* 

ARRAY TPNAMECQ123; 



00082050 
00082100 
00082110 



DEFINE TDMFlD*TPNAMEtOJ#, 

TDFIQ»TPNAVEC1]#» 
FILETYPE«TPNAM£L2]«; 



00082150 
00082200 
00082250 



ARRAY PRTSC0IPRTSMAX3J 

ARRAY INFOCOIINFOMAX + U; 

ARRAY NAMECPRT8ASEIPRT8ASE*NAME5UE 



00082300 
00082310 

00082330 



'u; 



00083000 
00084000 
00065000 



19 
20 



22 



24 
25 



27 



30 

31 



33 

34 
35 
36 

37 " 



39 



42 
43 



47 
48 



49 
SO 



52 
53 



54 



55 

56 



ARRAY NAMSCOJNAMSSUE-U; 
ARRAY INAM.ECOt INAMESlZE-1); 
ARRAY INAMSCOtlNAVSSlZE-U ; 



ARRAY XNAMECACTtaALPRTBASE»201J* 

ARRAY XNAMSC0J18J* 

HFFINF XSNAMETXSMAME1 1 8XNAMF C XSNAMF1 ] . f H 11 l«l 



INTEGER MIXMAX/1MIXMAX 

REAL vjqbnum>vbed; 

DFFINE STAXMAX'flflm 



OBTAINED IN ."GETPRTENTRIES' 



ARRAY STAXCQ»STAXMAX-l3; INTEGER MAXSTK»BEDSTk; 
COMMENTITHE DEFINES BELOW MUST - CORRESPOND TO THOSE IN FILL/PRT; 
DEFINE BREAKOUT ■ MCP . U7* HMm ________ 



CHECKLINK 
DATACOM 
PCLQG 



DCSPO 

DEBUGGING 

DFX 



- MCP.L46! lit, 
s MCP.C4b»lJ#» 

- qC P « L MU3»f 



MCP.C43U3*, 
MCP.[41H3f < 



OISKLOG 

DUMPP 

INQUIRY 



a MCP. [40« 1 J#, 
= MCP.[3y: |J#* 
= MCP. [38? 13*, 



SAVERESULTS 

SHAREDISK 

STATISTICS 



* MCP,C3?«iJ#* 
■ MCP.C36UJ#» 

* MCP.ti 5t„U« > 



AUXMEMM 

RJE 

B650QL nA D 



a MCP.l34»U#» 
a MCP.[33S 1 J*» 
= MCP. [ 32 « .31 > 



SEPTICTANK 
PACKETS 
MQMTTQRR 



a MCP»[31< U#* 
» MCP*C30I U## 
- wf.P.raon J». 



MAXOPT = 19*/ 4 UPDATE AS OPTIONS ARE ADDED 
ARRAY MEM0HYC0I63#0*511]; 
RFFTNE TYPMAX*<,3#J» 



DEFINE M»MEMORY## 
FFa[18»153##* 

__JL_1_JL_ 



CTF = C18J33«15]#*ai 

CTC=C33: 33* 15 3#,% 

R0Wa[33l6]l< 



% 



C0L*t39t93#; X 
DEFINE DEFINEDMIXWAXS9*;»MIXHAX NOW OBTAINED FN PRT MOTHER 
DEFINE SLATE » PKTSC0Q3** 



NSLATE 
LSLATE 
ESPBIT 



a PRTSC013** 
a PRTSCQ2]*, 
a PRTSCU33** 



AVAIL 
MSTART 

MEND 



TOGLE 

BED 

PRT 



* PRTSC04]*, 
9 PRTSCQ53#, 
a PRTSC063<t> 



JAR 

INTRNSC 

SHEET 



= PRTSCu7]#» 
= PRTSCOS]*, 
* PRTSU2]*, 



PRTSCl3J## 
PRTSCH3## 
PRTSC153J, 



JOBNUM 
PRYOR 

NFG 



a PRT.SCl6]#* 
a PRTSt 1? J«# 



ISTACK 

PROCTIME 

IOTIME 



* PRTSC19J#, 
a PRTSC2QJ#, 
» PRTSC213*, 



00036000 
00087000 
00068000 



00089000 
00090000 
00091000 



00092000 
00093000 
00094000 



00095000 
000»6000 
097000 



00098000 
00099000 
00100000 



00101000 
00102000 
0103000 



00104000 
OOlObOOO 
001Q600Q 



00107000 
00108000 
00109000 



00110000 
00110100 
001 10200 



00110300 
00110400 
00110500. 



00111000 
00112000 
O0113Q0Q 



00114000 
00115000 
00116000 



0011/000 
00117100 
QQUflOOQ 



00119000 
00120000 
00121000 



00122000 
00123000 
00124000 



00125000 
001260-00 
00127000 



00128000 
00129000 
QQ130QQQ 



00131000 
00132000 
00133000 



O0134Q00 
00135000 
00136000 



00137000 
00138000 
Q0139O0O 



rt 



m ft 



ft 



19 
20 



22 



24 
25 
26 
27 
2B 
29 



31 
32 
33 
34 
35 
36 
37 " 



41 
42 
43 



46 



48 



49 
50 



56 

56 



CHANNEL 

FINALQUE 

LOCATOUF 



IOQUEAVAIL 

IQQUE 

UNIT 



s PRTSU23#, 
s HRTSCi-Jlff* 
g PRTS [24 ]g, 



* PRTSC253#> 
s PKTSE26]#» 



TINU 

WAITQUE 

N E XTHATT 



* PRTSUO]*, 
- PRTS[<fy]*» 
= PRTS[ jO] fr, 



FIRSTWAIT 
LABELTABLE 
M UI TTTARLF 



s PRTSCH3#» 
» PRTSC323#> 
« PRTSC331*, 



RDCTABLE 

OPTION 

MESSAfiEHOLDEH 



PRNTABLE 
INITIALIZE 
P1MIX 



= PRT3t34]#, 
s PRTSL3;>3*# 
= PRr.Sf,j6],tf,f 



a PRTSr3V]#, 
* PRT5t383#, 
■ PRTSC393t» 



P 2M I X 

NOTHINGTODC 
STAC^QVEflfl, Ciw 



s PRTSU03** 
= PRTSC41 3#^ 
= PRTSU23*, 



RETURN 

DIRECTORYBUltOER 
D CQPTSTACK 



SAVERESULT 
AUXDATA 
AUXC nDF 



■ PRTSC433#> 
s PRTSU4]#, 

■ PRTSC451»» 



= PKTSt463* 
= PrtTS t «*7 3# 



EUIO 

PEOIO 

AVTABLF 



PRTSL493* 
PRTSC503* 
PBTSfSiU 



REPLY 

TRANSACTION 
PALPC 



= P«TS[523# 
= PRTS1533* 
= PRTbtb43» 



MEMASK 
CTA8LE 
FS 



PBTSC55J* 
PljtTS[563< 
PHtS[5>73» 



DBARRAY 

ATTACHED 

STATION 



OCQARA 

USERSTA 

TUSTABYHIX 



= PRTS[58J* 

= PBTSti>93* 
= PRTS[603» 



QTIMES 

EUQ 

CIDRBW 



* PRTSC613* 
x P«TS[623# 

« PKTSL633* 



s PRTS1643* 
= PRTS[65J# 
= PRTS>166]» 



ARGH 
YECH 

OIRECTORVFREE 



PRTSC673* 
PR7S[683# 
PRTSt693# 



SYSNO = PHTSL70]# 

STATIONMESSAGEHOLOER 

s PRTSCMJg 



LOOKQ 
PING0 
DC19Q 



PiTS[723# 
PRTStF3'J« 



ILL 

RJEWAITQ 

NOPRQCESSTOG 



- PRTS1753K 
= PRTSl/63* 
= PRrS[77J# 



mixmask 

INFOMASKl 
INF0MASK2 



P8TSt?83# 
PRTSC/93* 
PRTSte03» 



oouoooo 

00141000 
001 420 00.. 



00143000 
00144000 

00146000 
00147000 

.ooiAaooo. 



00149000 
00150000 

00151000.. 



00152000 
00153000 
00 1*?4qqq 

00155000 
00156000 

- oo.5J-o.xxa 

00158000 
00159000 

_XL£LiAflJ}Xia 

00161000 
00162000 
0016 3000 



00164100 
00164110 

-00164 i?n. 



00164130 
00164140 
00164150. 



00164160 
00164170 
00164 1 8 



00164190 

00164200 

.Q016JL£1JL 



00164220 
00164230 
QQ 164 ?4_Q_ 



00164250 

00164260 

. QQ16427Q 



00164275 
00164280 
00164285 



00164290 
00164295 
00164300 



00164305 
00164310 
0Q16431 1 



0016431b 
00164320 
00164325 



00164330 
00164335 
00104340 



00164345 
00164350 
00164355 



# • 



>r 



4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

'16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 



♦0 
♦ 1 
42 
43 



46 
47 
48 
»9 
50 
51 
52 
53 
54 
55 
56 
67 



CCMASK1 
CCMASK2 
CORE 



= PHI i[8l 18> 
= PRTS[62]«, 



DISKOUNT 

euw 

PUNTER 



PRTS[84 J*, 
PHTS[853** 
PUTS C 86 3d i 



LQUE 
LQAVAIL 
ZAR 



= PRTS187J#, 
a p^TS [68 J* * 
= PKTS t 89 J g, 



PROCEDURE 



IOQUESUOTS 
DUMMY 
FILLINFO; 



PBTSC903#' 
DUMMY#U 



FILL INFOC*] WITH % 
"SLATE "*0»0»26, 
"NSLATE ",0,Q,22, 



"LSLATE ",0*0*22* 



"ESPBIT 
"AVAIL 



"#0*0* iO* 

"*o*o*g3. 



% 00 
* 01 



% 02 



03 
_QJL 



"MSTART 
"MEND 
"TOG LF , 



"BED 

0*0*0*0* 

0*0*0*0* 



" * * * 2 3 * 
"*0*0*23* 

"*Q *0*?2, 



"*0*0*26* 



0*0,0*0* 

"PKT 

"JAR 



"INTRNSC 

"SHEET 

"JOBNUM 



"PRYOR 

"NFO 

"ISTACK 



"PROCTIME' 
"IQTIME ' 
"CHANNEL ' 



"PlNALQUE" 
"LOCATQUE" 
"IOQUEAVA" 



"IOQUE 

"UNIT 

"TINU 



"WAITQUE " 
"NEXTWAIT" 
"FI RST W AI" 



"LABELTAB" 
"MULTITAB" 
"RDCTABI.F" 



"OPTION " 
"MESSAGEH" 

"P^ NT ABLE" 



"INITIALI" 
"P1MIX " 
"P2MTX * 



"NUTHINGT" 
"STACKOVE" 
"RETUR N " 



"DIRECTOR" 
"DCQPTSTA" 
"SAVERESU" 



0*0 
0*0 



0*0 
0*0 
0*0 



0*0 
0*0 
0*0 



0*0 
0*0 
0*0 



0*0 
0*0 

11L 



0*0 
0*0 
0_*£ 



C*0 
0*0 



26* 
26* 



26, 
26* 

21±. 



26* 
26* 

2k±. 



26* 

26, 
26* 



26* 
26, 



H fO>U > 



26* 
26* 

26j_ 



26* 

22, 



"LE 
"LE 
*0* 26 , 



"»0'?2* 



",0*26, 
",0*26* 



0*0*22* 

"OLDER 

C*0,?6, 



"*0,22* 



"ZE 

0*0*22* 
0*0*22* 



w »0*10* 



"000 

"RFLQW 

0*0*32, 



"*0*32* 

",0*32* 



"YBUILDER 
"CK 

HLX 



"*0#10* 
"*0*22* 
",0*26* 



jl 



% 
% 

% 



% 
% 



% 
% 

JL 



Ob 
06 
J1Z_ 



% 08 
% 09 
% 10 



* 11 

* 12 

I 13 



% 14 
* 15 
% 16 



17 
10 

-1SL 



20 
21 
22 



23 
2 4 
_2JL 



26 
27 

2JL 



% 29 
% .3.0 

JL-3JL 



% 32 
*■ 33 

% U 



% 35 
* 36 
% 3 7 



* 38 

* 39 

% 4Q 



* 41 
i 42 

% 43 



% 44 
X 45 

% 46 



00164360 
0016436b 
00164370 



00164380 
00164390 
00164/iQQ 



00164410 
00164420 
001644 30 



00164440 
00164999 
0Q165O00 



00166000 
00167000 
QQ168QQ Q 



00169000 
00170000 
001/1000 



00172000 

00173000 

.00174000 



00175000 
00176000 
00 1770 00 



001/8000 
00179000 
PQ160QQ Q 



00181000 
00182000 
00183000 



00184000 
00185000 
OQUOOQIL 



00187000 
00188000 

00189000 



00190000 
00191000 
00192000 



00193000 
00194000 

o o m oQQ 



00196000 
00197000 
00198000 



00199000 
00200000 
00201000 



00202000 
00203000 
Q02Q4000 



00205000 
00206000 

00207000 



00208000 
00209000 
00210000 



00211000 
00*12000 
00212100 



"AUXDATA "*0*0»26* 
"AUXCODE "*0*0*26, 
" E U IQ "i0»0»26* 



"PEUIO "*0*0*26, 
"AVTABLE "*0*0*26, 
"REPLY ",0*0*?6, 



"TRANSACT", "ION 
"DALOC ",0,0*26, 
"HEMASK ">0,Q.?6, 



',0*26* 



"CTABLE "*0*0*26* 
"pS "*Q*0*26, 
"QBARRAY "*0*0,26, 



"ATTACHED"*0*0*26, 
"STATION "*0*0*26* 
"PCQARA "*0*0*26, 



"U&ERSTA "*0»0*26* 
W TUSTABYM", W IX 
"QTIMES ",0*0*26, 



">0*26* 



"EUQ 

"CIDROW 

"ARGH 



"YECH " 
"DIRECTOR" 
" SYS NCI 



'0*0*26* 
•0*0*26, 
'0*0*26, 



"5TATI0NM". 
"LOOKO 
"PINGO 



0*0*22* 

"YFREE 

0*0*2?, 



"*0*22* 



"DC19Q 

"IU 

"RJFWAITQ" 



"ESSAGEHO","i.DER 

0*0*22* 

0*0* 2 2* 



"»22, 



"NOPROCES", 

"MIXMASK 

"INFOMASK". 



0*0*22* 
0*0*22, 
0*0*22* 



"STOG 
0*0*22* 
-!L1 



"INFOMASK^ 
"CCMASK1 " 
"CCMASK2 



"CORE 

"DISKOUNT" 

"EUW 



"2 

0*0*22* 
0*0*22* 



"*0*22* 



0*0*22* 
0*0*23, 
0*0*22* 



"PUNTER "»0*0*26, 
"LQUE "*0*0*26* 
"LQAVATL ",0.n,32. 



"TAR "*0*0*26, 

"IOQUESLO"*"TS 
Jill 



00212200 

00^12300 

-a02-JU2aQO- 



00212450 

00212500 

.00212550,. 



00212600 

00iil262b 

-OjO_2x2.iiJiil 



00212675 

00212700 

-00*12725 



00212750 

00212775 

_ QQ 2 1 2 PQQ . 



00212625 
00212850 
00212B 75 



00212880 
00212885 
00212R9 



00212895 

00212900 

-0021290-5- 



0021291C 
00212915 
002 1 2 9 2-0 



00212925 
00212930 
0021291)5 



00212940 
00212945 
00212950 



00212955 
00212960 
00212965 



00212970 

00212980 
QQ21299Q 



00212992 
00212994 
0021299ft 




2 

3 

4 

5 

6 

I 

8 

9 
10 
11 
12 
13 
14 
(15 
|,6- 

h7 

18 
19 
20 
21 



22 
23 
24 
25 



26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 



40 
41 
42 
43 



45 
46 
«7 
•8 
49 
50 
61 
52 
53 
54 
55 
56 



STRPRQCID 

BOOSTRPROCID 

REALSTRPRflOTH 



= 12*/ 

= 13rf, 
= 1 A#r 



INTSTRPROCIO 
800PR0CI0 
REAL P RH CTH 



INTPRDCID 
BQOID 
■ REALIH 



sl5*/ 
*17#/ 
«l fl#« 



00229000 
002J00Q0 
002 31000 



= 19»* 
= 21*, 



00232000 
00233000 
on234nnn 



INTID 

BOOARRAYIO 

REALARRAYIO 



*23*/ 

«25*/ 
= 261/ 



00235000 
00236000 
00237000 



INTARRAYID 

NAMEID 

INTNAMEID 



=2/*/ 

■30*/ 
= 3j*, 



00238000 
00239000 
ori2aonnn 



00241000 
00242000 
OQ 2 « 3Q Q 



LABEL 10 »32## 00244000 

a************************** ^ ********** * ******************** **********, 00245000 
PROCEDU RE SETuPxNameandxnams; no246nnn 



BEGIN 

STREAM PROCEDURE F ILLXNaMS ( XN aM5 ) ; 
BEGIN 



DH*XNAMS; 
OS:s 8LIT"NT1 

QS»g 8 LI T"N T? 






0S:« 8LIT H NT3 
DS:s 8LIT"NT4 

D S»» b li t^hts 



»» 



OSJs 8LIT W NT6 
DS»* 8LIT"NT7 
nSls 8L TT M ATE 



JLL 



0S:= 8LIT"CL0CK 
DSJ* 8LIT"XCL0CK 
D§:= flUT-fiFADY 



D5l» 8L IT «•-—«.-•-«; 
DS»» 8LIT«KLUMP ♦*> 
nSt°l6l,IT w FTRSTnECK 



_!VL 



DSJ» 8LIT"LAST0ECK"; 
DSJ= 8LlT"0IR0iK " ; 

DS»s fll.IT w MFMt1HY "i 



DSJ* 8LlT M RRRMECH *'/ 
END OF FILLXNAMS; 
ARRAY TCACTUALPRTBASEt2l33; 



INTEGER I*j; 
FILL T[*3 WITH % 
123*1/60/ 



XNAMti 



120/1/01/ 
119*1*02/ 
127*1/03* 



125/1*04, 
124/1*05, 
126*f *06, 



128/1/07, 
112/1/08* 
U3/1/Q9* 



114*1* 10, 
115/1*11, 
116* 1*12. 



11 7' 2* 13* 
118/1, IS, 

122/ 1 M6, 



00247000 
00248000 
QQ249Q00 



00250000 
00251000 
0025?OOQ 



00253000 
00254000 
00255000 



00256000 
00257000 
00258Q0Q 



00259000 
00260000 
00261000 



00262000 
00263000 



00265000 
00266000 
00267000 



00268000 
00269000 
QP2/0Q0Q 



00271000 
00272000 
00273000 



00274000 
00275000 
00276000 



002?7000 
00278000 
2 79 Q QC 



00280000 
00281000 
Q0262Q0Q 



00283000 
00284000 
00285000 



00286000 
00267000 
02 39 000 



n 

2 
3 
4 

5 
6 
7 



9 

10 
" I 
12 
13 
14 | 
15 
16 

"< 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

*i 

36 

38 { 

39 
40 

«1< 

42 
43 
44 f 

45 

46 

47 i 

48 

49 

50 | 

51 

52 

53 4 

54 

55 

56 I 

57 



ft • 



h 



i21m»ib;% 

FIU.XNAMS(XNAMS)? 



00289000 
002900CC 
00291XXQD... 



JS«ACTU*LPRTBASE*U 00292000 

FOR Il*ACTUALPRTBASE STEP 3 UNTIL 211 UO 00293000 

X NAMECJ«*Jfl3l"»tTri3rBi3ail0 3ATCH-l3tlB833«153RTCH-2 3c33l33ll53; __ 00294000 



enu setting up xname andxn ams. 
real linktype; 

ARRAY AREATYPF[Q»TYPHAX+1 1/ 



PROCEDURE FILLAREATYPE* 
C0MMENT***AREATYPEtLINKTYPE3* WHERE 
LINK TO BE PRlNTFDt CONTAIN S A C.BDF 



00295000 
0Q295100 



LINKTYPE IS THE TYPE OF MEMORY 
WHICH DETERMINES THE FORMAT FOR 



00295120 
00295130 
OQkVhUO 



10 

11 

12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 



30 
31 ~ 
32 
33 



34 
35 



36 

37* 

38 

39 

40 

41 

42 



PRINTING THE AREA : isOCTAL* 2=ALPH«/QC I AL, 3=ALPHA ONLY. 00295150 

DUMPMEMORYANDNOTESTACKS DETERMINES LlNKTYPE FROM [3:6] OF A PRIMARY 00295160 

LINK. PRINTCQRF THEN OBTAINS ARE AT Y PF C 1 1 NK7 YPF I AND PRINTS THE ARFA 00295170. 

IN THE APPROPRIATE FORMAT. ELEMENTS THRU TYPMAx CORRESPOND TO 00295180 
POSSIBLE LINK TYPES, ELEMENT TYRMAX+1 IS USED TO CONTAIN THE DEFAULT 00295190 
FORMAT CnOF USED IN PRINTING A N ARfA WHICH DOES NOT BEGIN WITH A LINK 0Q?95200 



OR CONTAINS A CLOBBERED LINK. THE CONTENTS OF AKEATYPE ARE NOT 
USED IF DUMPUCTALONLY* DuMPaLPHOC TAL GH DijMPAlPmAONlY ARE SET OH 
IF AN AVAILABLE AREA IS BU Nfi, PR INTFH tNhQ.Sfc. CORH f: SPfjNp Ihfi FORMAT 



00295210 
00295220 
0Q 29523Q.. 



CODE IS NOT NEGATIVE. FOR EXAMPLE* A NEGATIVE CODE SUCH AS -2 CAUSES 00295240 
BOTH IN-USE AND AVAILABLE AREAS TO BE FORMATTED AS ALPHA/OCTAL. A 00295250 
CODF OF +?, WOULD CAUSE ONLY TN-USF AREAS TQ BE PRINTED IN AuPHA/QCT AL- 0029526C- 



AVAILABLE AREAS* IF PRINTED, WOULD bE PRINTED IN OCTAL ONLY,****; 

FILL AREATYPEC*] WiTh * l-UCTAL' 2= AlPHA/OCT Al> 3= AlPHA 

2t* UNil&OWNCO) 



i»* C0DEC1) 
2r% DATAC2) 
2»% IOBUFM) 



00295270 
00295280 
0029529 



1>* 
2** 
?#* 



ALGFIBC4) 
INQBUFC5) 
CORFTRfft) 



00295300 
00295310 
00295320 



I** 

1** 



INTSEG(7) 
HEADERC8) 
±21 



00295330 
00295340 
00295350 



1** 
1** 

_2jl*_ 



00295360 
00295370 
0029-5.38.0— . 



(10) 
( 11) 
S T AC Kf 1 2) 



l>* (13) 
1** (14) 

1 »* ( 1?) 



00295390 
00295400 
.XIO.295410 



00295420 
00295430 
00295440 



1>X 

111. 



(16) 
(17) 
(18) 



00295450 
00295460 
00295470 



45 



1»* (19) 

2*X CIDROW(20) 

1>* (21) 



00295480 
00295490 
00295500 



48 
49 



52 
53 



55 
56 



1** (22) 

1J»***DEFAULT IF UNABLE TO DETRMlNE LINK 
DEFINE NEXTPAGE»WRITE(P[PAGE3)«* 



TYPECTYHMAX+l) 



00295510 
00295520 
0Q296Q0O 



FORMAT STARS(20C"******"))# 
STARZ(*C*")); 
FORMAT MCPHPR("DCMCP,XV»'SA1»"."jA2*' 



COMPILE-TIME OPTICNSJ")* 



SWITCH FORMAT MCPUPT!=C 



00297000 
00298000 
00299000 



"BREAKOUT") 
t ( "CHECKLINK") 
!_l "DATACOM") 



00300000 
00301000 
00302000 



#( -DCLOG") 
,C "DCSPQ") 
*( "DEBUGGING'*) 



00303000 
00304000 
00305000 



^r 



»C "DFX") 
*C "DISKLQG") 
-U "DUMP") 



00306000 
00307000 

ooaoflono- 



»( "INQUIRY") 

#( "SAVERESULTS") 

fi "SHaRFOTSK") 



00309000 
00310000 
00311000 



B 
9 
10 
11 






"STaTISI ICS") 
"AUXMtM") 
" RJ E" ) 



*( "B65O0L0AD") 
*( "SEPTlCTANK") 
-U. "PA CKETS") 



00312000 

00313000 
00313100 



*( 



"MQhlTOH") 



00313200 
00313300 
QO3134Q0 



A LPHA ARRAY I P [ Ql?]; JUSEP TQ CUWTA I <M AN IQ E. MT WH^S E PHT LOC I S SOUGHT 



00313500 
00314000 
00315000 



13 

14 



16 

Il8 



PROCEDURE TABtEu00KUPClD*U0C);AR8AY XOCOJMMEGEK LOC; 

BEGIN 

INTEfiFR UM 



boolean stream procedure gut ident( a, n,8 ) ; value n> 
begin si: = a;dp=b;tallyjso; 

. i e n s c » dc t hf n ta l ly. ' = 1 / 



00316000 
00317000 
00 318000 



OU319000 
00320000 
00321000 



26 



GOTIDENTl*TALL¥J 

END gotident; 

KLA S S >s KL A S S -lf 



FOR I5s 129 STEP 1 UNTIL PKTMAX DO 
IF NI«NAMECI1, [181303 NEQ THEN 
I F N . FF=L OC PR l, Q C = Q TH EN 



00322000 
00323000 
00 3 2 4 000 



00325000 
00326000 
003^7000. 



IF KLASS LE® OH KLASS=NAM£C I ] . [ 3 ! 5 J THEN 
IF GOTlDENTCNAMSCN.CF3»N*s8xN.FF*IDt03 ) THEN 
BEGIN : 



00328000 
00329000 
00330000- 



28 
29 



LQCisi; 

i:«PRTMAX + 2UF0RCE 



FALL THHU 



end; 



00331000 
00332000 
00333000 



31 
32 



33 



IF I GEO PRTMAX +2 THEN ELSE LOCls-U 
END OF TABLELOOKUP; 
DEFINE GETIDLDCCGETIDI 0C1 ,GET IDl_DC2 ,GET 1DLUC3 ,GET IDi QC4 H 



00334000 
00335000 
00336000 



34 
35 



36 



BEGIN 



FILL IDC* J WITH aEU0LUCWGETlDL0C2#GETIDlQC3* 
TABl.ELGHKUPf 1[^GETID LUC4 ); 



00337000 
00338000 
00339000 



37 
38 
39 



end#;x 

PRUCEDURE FIXDEFINES; 



BEGIN 



00340000 

unc. ri*utr t«M* 00341000 

COMMENT ******* ******* *** + ***** 
THIS PROCEDURE IS RESPONSIBLE FOR FINDING THE PRT LOCATION OF AN 00343000 
IDENTIFIER DEFINED IN "PRTS" FUR WHICH. THERE IS A CORRESPONDING 0034400C 
FNTRY IN "lNFD"t IT HQFS THIS bY CALIINC "TABt.ELQQK UP" TU nn34500n 



40 
41 
42 



43 



45 



49 

50 



51 
52 
53 
54 

55 
56 



PERFORM A LINEAR SEARCH OF "NAMES" TO LOCATE AN IDENTIFIER IN 
"NAMS" AND COMPARE IT WITH THE ONE GIVEN IN "INFO". IF AN 
IDENTIFIER CAN NOT BE LOCATED IN "NAMS", THE "PRTS" ELEMENT IS 



00346000 
00347000 
0Q 348 00Q 



LEFT UNCHANGED—OTHERWISE* THE ADDRESS OBTAINED IS STORED 00349000 

IN "PRTS",********************************************************i 00350000 
INTEGER I»LOC; QQ351000 



INTEGER STREAM PROCEDURE IDLENGTH(A)# 

BEGIN LOCAL Li SlJsLOC L; Ult'AJ 

3(IF 8SC«0C THEN JUMP OUT ELSE 



sii»loc l end); 
end idlenghth; 
f ill Infq;, 



BEGIN TALLYlsTALLY+U 



00352000 
00353000 
00354000 



idlength»stally; 



FOR 11*0 STEP 4 UNTIL INFOMAX DO 
IF (L0C«»IDLENGTH(INF0CI3))*0 THEN 
MQVE(lNFQm,IDC03*3)i KLASS; = 



00355000 
00356000 
Q Q3570 QQ 



ELSE BEGIN 
HNFQCI+3]; 



00358000 
00359000 
Q Q36 QQQ0 



57/ 



1 

2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 



34 
36 
36 

37 ~ 

36 

39 

40 

41 

42 

43 



45 
46 
47 
«8 



49 
90 



51 
52 
53 
54 

55 

i. 



-HI 



TABLEL00KUP(ID*LUC>; 
PRTS[I/4] JalF LQC GTR 
ASSt=0? 



THEN LDC El_SE PRrS[I/4J END; 



IF PRT32,(ft6U] THEN FOR I*»0 STEP 1 UNTIL PHTSMAX DO 
WRITECP»<"PRTS["»I3» w J a "» I4># I#PRTSt I J ) J 
END FIXING DE F I NFS; 



boolean stream procedure bltoncwb)/ 
value b; 

RF.tilN . 



si«sw;skip b sb; 

IF SB THEN TALLY»*i; 
RTTONigTALLYi 



end of biton; 
procedure nextitem; 

BFGI N 



write(P); 

WRITE(PCDBL3#STARS)) 

end; 



procedure printmcpoptiqns; 

BEGIN 

. WRITE(P[nBL3>MCPhnK>LE.VEL*SUHLEVFL U 



FOR I.*"13#0#15#i#2>3#4»5*6»?#8#9M8»l7 # i4,io>i6,ll,l2 

IF BIT0NCMCPM7-I) THEN WRITE(P# McPOPTC 1 3 ) I 

WRTTFf PmBt 3)? ___ 



DO 



END OF PH1NTMCPQPTIUNS/ 
DEFINE DATE «C11V)*# 

CLOCK s(l20)tfi 

XCLOCK s(121)#; 
BOOLEAN ARRAY MQDONCOlH; 
INTEGER ARRAY IT0[fUQ3i 



ARRAY RTDC0J5]; 
DEFINE TIMEANALYZED 
DATEANALYZFD 



TIMETAKEN 
OATETAKEN 
T IMELASTHL 



= ITDCO 3 #» 
* ITDC1J#, 



DAYS 
YEARS 
DEFINE DATX 



sincslasthl 

MINUTES 
SECONDS 



= IT0[23#» 
* ITDC33#, 



= 1TDC5 J#, 

= ITO[63#» 
ITDC73g. 



* ITDC83** 
s ITDC93#; 

* RT0t0]#, 



XCLOCX 

CLOCX 

TEMP 



5 RTD[1]*, 
- RTDC2 3«f 
8 *TU[33g* 



KINDS s «T0E4)#, 

MCPVERSIQN * RTDC53#; 

FORMAT OUT FMXXC'DATE ANALYZED % 12 * "/"# 12 >"/">!?/ 



'/ 12* 



12) 



♦'TIME ANALYZED Mj,": 
X1CMCP VERSION NUMBER M2/ 
"DATF TAKFN " * I 9. "/" . T ?. "/"> J ?* 



"TIME TAKEN •% I2# "1 M2, "s "> 12 U 

X1MARKXICMCP VERSION NUMBER "rA$»A*/ 
: W HATF TAKEN "> I2> VM?>"/S T? / 



"TIME TAKEN ", 12>";"#I2>":"M2)> 

FMX2("TIMe: OF THE LAST HALT-LOAD *M2* M I"#I2» ,12)* 

SVSIDC'DUMP TAKEN ON SYSTEM "jA1)» 



FTAPDSKCA4," FILE CONTAINING DUMP IS % Al# A6#"/% Al# A6)> 
FCOMVALC'COMMQN VALUE USED IS » » 1$ ) , 
FANAL( W ANALYZER VERSION-"* Al ) , 



00 461000 
00362000 
PQ 3ft 3 00Q 

00364000 
00365000 
00 366000— 



00395000 

00396000 

■ Q 3 9700Q . 



00398000 
00399000 

-004( 
00401000 
00402000 

-00403000- 



00404000 
00405000 
Q0406nnn 



00407000 

00408000 

-OQMSX).0_a 



00^10000 

00411000 
041 2 00 
00413000 
00414000 
-0 04 1 5000 - 
00416000 
00417000 
0Q41800Q- 



00419000 

00420000 
QQ^210QQ 



00422000 

00423000 

.OMMfiOJL 



00425000 

00^26000 

-flM2Zflfl.fi.. 



00428000 
00429000 
00430000 



00431000 
00432000 



00434000 
00435000 
00436000 



00437000 
00438000 
0Q439000 



00440000 

00441000 
0Q442O0Q 



00^43000 
00444000 
00444100 



00444200 
00444300 
00444400 



9 
10 
11 i 
12 

13 

,4l 

15 

16 

,7 I 

18 

19 

20 < 

21 

22 

23 ' 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 



47 

46 

49 

50 

51 

52 

53 ' 

54 

55 

56 ' 

.3 



• 



12 

13 
14 

Its 

K 

K 
2 o 

21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



38 
39 

40 



41 
42 
43 " 



45 



46 
47 
48 
•9 
50 
51 
52 



53 
54 



55 
56 



FMX3C"TIME SINCE LAST HALT-LQAU "* 12, " :",I 2, " : ">I2 )/ 
FORMAT BADBEDC"********* BAD BtO ENTRY *********' 

FORMAT RAfinATF M'Ran HATF TAKFN . t .. t » ? . 

BAOXCLOCK ("BAD TIME TAKEN ..,.,")> 
BADCL0CKC"8AD TIME OF H/L w )i 
FORMAT RAnrni 3CHPRP 3 has thf fi aa rtt nN 1t 



PROCEDURE TIMES ( WHEN'HRS, MUo Ot-C ) ; 
REAL WhEN/ INTEGER SEC»MlN#HRS> 
B E GIN 



-li. 



INTEGER T; 
IF WHEN LSS OR 
ELSE 



WHEN GTR 5184000 THEN HRSS 
RFfilN TlaWHFNt 



«MIM»SEC*»100 ^OVERFLOW 



HRS:=T DIV 216000; 
MINI*T DIV i600 MOD 60; 
SECt^T Ply 60 MOD 60; 






END OF TIMES PROCEDURE; 

PROCEDURE DATESCADATE* MONTH* OAY> YEAR); 

value adate; 



ALPHA ADATE; 
INTEGER MONTH*DAY*YEAK > 
BEGIN 



REAL Y»d*m; 
LABEL ON; 
ARRAY DAYTARLL 



com]; 



STREAM 
VALUE 
BEGIN 



PROCEDURE 
DAT ; 



CONV (YEAH, DAY, DAT )> 



Sit* LOC DAT; 
Si :» Si +3; 
pi *s year; ns 



«» 2 oct; 



di »= day; ds »s 3 oct; 
end; 

FILI HAYTARl F r»l WITH 



0*3 1,59, 90, 120, 15 1,18 1,2 12,243,27 3, 304, 334; 

conv (Y,d#adate); 

IF ffY MHn aJj_Q_) AMD fYiQl lufH 



BEGIN 

IF D =60 
BEGIN 



THEN 



00445000 
00446000 
OQ447Q0Q- 



00448000 
00449000 
00450000 



00451000 
004b2000 
00 45 3 000 



m is 1; GO TO 8N; 

end; 

IF D > 60 



THEN ____P___ 



end; 
for m :* step 1 until 11 do 

IF DAYTABI E Tto3 GFQ D THLN 



ONJ 
MONTH »■ M; 
IF Map THEN 



GO Tfl on; 



DtsQ ELSE %GU AHEAD 



DAY J= D - daytabllcm-U; 
YEAR :«Y; 

END OF pqnCERURF., DATE? 



* RCC 



INTEGER MAXMOD#MAXCOR; 
INTEGER TABLESLOC; 

BOOLEAN LNKSOK,AVAl,NKnK,SnMOKF,SUMOKB; 



% UTILITY PROCEDURES 
REAL PROCEDURE OCTAL(N);* 
VALUF n; % 



INTEGER N;X 

X N,tU233»0 S0 THAT IF N CONTAINS AT 

% OCTAL IF PRTNTFn USTMfi n FORMAT. nR 



00454000 
00455000 
004*16000 



00457000 
004_>80Q0 
QQ 459 QQ Q 



00^60000 
00461000 
on46?nnn 



00463000 
00464000 
00465000 



00466000 
00467000 
00468000 



00469000 
00470000 
0047100Q 



00472000 

00473000 
0047400 



0C4750O0 
00476000 
00477000 



00478000 
00479000 
00480000 



00481000 
00482000 
00483000 



00484000 
00485000 
00486000 



00487000 
00488000 
00469000 



00490000 
00491000 
QQ492QQQ 



00493000 
00494000 

00495000 



00496000 
00497000 
00498000 



00528000 
00529000 
00530000 



00531000 
M04>T A HALF-WORD THEN 00532000 

A P nRMAT FHR FFWFR nC TAflF. .SQ0533nnn 



r< 



8 I 

9 

10 

"I 

12 
13 

,4< 
15 

16 

»< 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 { 

30 

31 

33 



37 
38 ( 
39 
40 
41 ( 
42 
43 
44 ( 
45 
46 
47 < 
48 
49 
50 t 
. 51 
52 

53 f 
54 
56 

56 4 
6? 



h 






9 
10 
11 
12 
13 
14 
15 
16 



18 
19 



20 
21 



23 
24 



25 

26 

27 

28 

29 

JO 

31 " 

32 

33 



34 
35 

36 

37 ~ 
38 



40 
41 
42 



43 



46 
47 
48 



49 
SO 
51 



52 
53 
54 



55 
56 



fc_ 



X WILL BE THE OCTAL REPRESENTATION OF" N 
0CTALt=N.[fl5«3HClF N>7 TH£N OCT Al CN. C 24 « 21 J ) LLSFI 0H3»9»39]i 
RFAL STREAM PRnCFnUHE CHRS { A i , b K 1 PP 1 MUMAhl ) l 



VALUE skipping#many; % 

% RETURNING THE 7 OR LESS 

BEGIN 



CHRS REQUIRED 



sii»atj sh«si+skipping; 

di»«loc chrs; ostsa LIT"0"; ui»*ui-many; 

DSI-MANY CHR; 



END CHRS; 
INTEGER PROCEDURE 
VALUE LDC; 



HIHALF(LQC); 



INTEGER UOC; % 
HIHALF:-CHRS(M[L0C*ftOW*LOC,COLJ'O,a); 
INTEGER PROCEDURE LOHALFClOO; % 

VALUE LOCj 

INTEGER LOCJ X 
L0HALFtsCHRS(Mr.LQc.RQw*L0C.CQL3»4»4); 



BOOLEAN STREAM PROCEDURE FLGBI T ( WORD ) ; 
BEGIN 

siibkord; % 



FN D 



IF SB THEN TALLYtsi; 
FLG8ITI»TALLY; 1' 

flgbit; % 



ARRAY THISROW,LASTRO^[0: 113; 
SAVE ARRAY AL I NE C * 1 8 ] ; 
ARRAY Bl ,, INF [01. 18.1» 



boolean notprintcall#avalnk; 

BOOLEAN STREAM PROCEDURE COMP aREWQRGSC S» D* W ) ; 

vauif w; : . ; 

BEGIN 

LABEL XITJ 

STt = s;m;=n; 

WCIF 8 SC NEQ DC THEN JUMP OUT TO XIT); 
TALLYl^i; 

xiticomparewqros;*tmllY; 



END COMPARING WORDS* 

% 

DEFINE PRINT(PRINT1jPRINT2)sIF NODUwP THEN LlSE 



PRINTC0RE(P«INT1#PRINT2)#; 
PROCEDURE PRINTCORFCFROM/TQO); 



value from»too; % 
integer from, too; 

BEGIN % 



DEFINE FORI a FOR I »= STEP % UNTIL 21 DC#; X 
DEFINE OCTADE ■ C0Sis3 RESET;3CIF SB' THEN OS»«SeT ELSE 

D5:3R£SET;sKIP SB))* J 



stream procedure huild(frum»line»xa#n a*xb#nb>nc# al# ao >; * 
value from*na,nb*nc^al^aq; % 
_ begin oi;slinl;si;slQc fRcjm;shssh-5;skip 3Sb; 



5 OCTADE; DS »s LIT " "> AU( SI 
NA(0S|*LIT*' '";2(DSl»LlT" 
N8<0S;»LIT* ";2(0S»sliT" 



1* xa; * 

n *8 OCTADE));SH«XBj 
tf 1 



;e octadejj; 



NCCDS«sl9LIT" "); DS?=LIT" " ) ; % 
ALCSI«*XAjNACDSiBLlT" M ;DbJs8 CHR); % 

si ;=xb;nb(DS:=lit" ";ds8=8 chr); % 



NCCDS'^LIT" "); 0S»«6 LIT " «)i END BUILD; X 
STREAM PROCEDURE M¥<A»B); BEGIN SI l*A;DI t«B;D8i« WDS END 
STREAM PROCEDURE EXP ANDC AL INE»BLlNE*N ); VALUE NJ 



MV> 



00534000 
00535000 
0Q5360QQ 



00537000 
00538000 
0053 9000 
00540000 
00541000 
.0Q542QQQ 



00543000 
00544000 
onS45nnn 



00546000 
00547000 
QQ 548 000 



00549000 
00550000 
0055100 



00552000 
00553000 
_0J15_bJlflJlfl. 
00555000 
00556000 
0Q5570Qn 



00558000 
0055900C 
0Q559Q50- 



00559100 
00560000 
00561000 



00562000 
00563000 
QQ5 Q40 QQ 



00565000 
00566000 
0C567000 



00568000 
00568100 
Q0568200 



00568300 
00568400 
Q Q5 69 0Q Q 



00570000 
00571000 
00 57 2000 



00573000 
00574000 
00575000 



00576000 
00577000 
00578000 



00579000 
00560000 
00581000 



00562000 
005B3000 
00564000 



00585000 
00566000 
00586100 



¥"!• 



>r 



10 

11 

12 



16 

17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 " 



38 

39 
40 



42 
43 



45 
46 
47 
48 
49 
50 



52 
53 

54 
55 
56 



BEGIN Dl8=dLlNL; ie(DS ; -fai. lT" •• ) ; Di:*BLiNE; DU=DI + 7; 

spsahne; siissl + 7; 
N(2ca qctadf; dii«di + i); s 1 : = s t + 1 j > 



end expand; 
boolean match, f 1 rst,last* staro; 

INTEGER I*R>STARCOUnT; 



00586110 
00b«6120 
0flbB6ian 



BOOLEAN AL*AC; 
LABEL EOlTLINE; 
IF OuMPALPHAGNLY 



INTEGER 1>Z\> % 
THEN AU»=I*U£ E L §tL 



00*86140 
00587000 
0056800Q 



IF DUMPALPHAOCTAL THEN AQiaTRUE ELSE 

IF NOT DUMPOCTALONLY THEN 

IF(II«AHEATYPEtIF NOTPRINTCALL THEN LIMKTYPE 



00589000 
00589100 
OQ590QQ Q 



TYPMAX + 13) 6T.R AND AVALNK THEN 
IF I**ABS(I)=3 THEN AL?*TRuE ELSE 
IF 1*2 THEN AQSaTRUE; 



ELSE 



00591000 
00592000 
Q0593QQC 



ELSE 



Zlla(Z*»lF AL THEN l2 ELSE IF ALt-AO THEN 4 ELSE 6)"H 
IF NOT (AL OR AO) THEN AQI*?RUtl 

A0I«AQ AND TRUE; All»AL AND TR UFf X 

STARCOUNTl=IF 2=12 THEN 114 ELSE IF Z = 6 THEN 120 ELSE 119; 

FTRSTSsTRIIF"' 

T0Q;-T00.f32H6]J FKOM : sFROw . [ 3? jj ft i '> 



00594000 
00594100 
QQ594200 



00594 300 
00594400 
00595000 



IF TOO>FROM 

DO % 

BEGI N it 



THEN % 



00596000 
00597000 
00598000 



IF NOT LAST := (TOO - FROM LEU Z) THEN * NOT LAST LINE 

BEGIN 
. - TF FIRST THEN 



00599000 
00600000 
0060100Q 



BEGIN 
IF FROM, ROW*(FROM*Z). ROW 
EL SF % 



00602000 
00603000 
00604000. 



THEN MGVE(MtFR0M,R0tt#FRUM.COL3#LA5TRGW#Z) 



FORI MVCMCCFRQM+l).HOh*CFROM+J)»CGL]# 

lastrowi in; 

STARn<»FAL5Ef 



00605000 
00606000 
QQ607Q00 



IF 



ELSE 

ft F* C T N 1 

FROM t RQNa(FRQM+Z).RQW 



IF Z*12 THEN GO EDITLINE; 

firstj»false; 

FNO 



00608000 
00609000 
Q0610000 



00610100 
00611000 
00612000 



ELSE X 



THEN MQVECM£FROM.Row»FRUM.cUi.3>THlSROW»Z) 



00613000 
00614000 
00615000 



FORI MV(M[(FR0M + n.HQW#(FRQM+U.C0L3> 
THISROWLIJIJ 



IF (MATCH :=CCMPAREWORU$(THiSR0*C0.ULA3TK0W[0]»Zn 

AND NOT STARO THEN 
BE GIN 



00616000 
00617000 
QQ618QQQ 



IF DOUBLESPACE THEN 

WRITECPC08L3>STARZ#STARC0UNT) 

HRirECP»STARZ»STARCQUNT); 



00619000 
00620000 
0Q621Q0Q 



ELSE 



staro:=true; 
end; 
if ngt match then 



00622000 
00623000 
Q624Q QQ 



BEGIN 

star0 8«false; 
movecthisrow/lasthow^z); 



00625000 
00626000 
00627000 



END/ 

end; 
end;* if not 



00628000 
00629000 
00630000 



IF 



LAST 
NOT 
NQT 



OR 
STARO 
MATCH 



LAST 



00631000 
00632000 
00633000 



8R 

THEN 



00634000 
00635000 
0Q636QQ Q, 



T< 



h 



I 2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 ~ 



38 



39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



52 
53 
>4 
55 
56 



EDITLINEJ 



BEGIN 
R » s MTNfZ>TCn-FRnH)? ,% 



IFCFROM+RJ.ROW NEG FR0M.R0W THEN % CROSS HOW ROUND 
BUILDC FROM, AUNEt*]»MCFKOM, ROW, FRQM.COU'512-FRQM. COL* 
M[(FROM*R).Hnil»nl.CFRUW»R>.Cni .TF R I SS 7 THPN X 



00637000 
00637100 

on$3flono 



Z-R ELSE 0>AUAO) tLSE * STILL, IN SAML KQw OF h ARRAY 

8UILDCFR0M ,AlI NEC*],* [FROM. RQvwFRQM.CCL^H* 
MC0,Q3,C,IF R LSS Z THEN Z'R FLSE U»AL,aO); % 



006 39000 

O06aoooo 
ooaaiooo- 



IF Z*12 THEN IF FIRST THEN 
BEGIN 



00642000 

00643000 

..CLQ 644Q QQ,. 



IF DONTPRINTLINKS THEN ELSE 

BEGIN 

EXPAND f Al INFjBI I NF > ? + HE Al f AVAi NK))i 



00644100 
00644200 
00644300- 



writecpc0bl3»1b,bline[*3); 
end; 



00644310 
00644320 
00644400 



END; 



IF DOUBLESPACE THEN W« I TEC PC D8L 3, 1 &> ALl NEC * J ) 
WRITE(P*18»ALINEC*] ); 
END,? % 



00644500 
00644510 
nfi644Afi n 



ELSE 



ENn 



END UNTIL 
WRITE(P); 
PRTNiT; * 



(FROM 
X 



from + z) qeq too; % 



00645000 
00646000 
00647000 



FORMAT ITEMCA5," * ",2( G,X 1 ) >A5,X89 J ; 

BOOLEAN PROCEDURE POATADESC ( AT*rt<iA T ) > VALUE AT/ 

iNTEfiEH AT; 



00646000 
00649000 
006^0000 



ARRAY LlNErO*143; 

PROCEDURE DISPLAY IT CWHAT# RANGE* ADR); 
VAIUF WHATtRANfiEiAOR; 



-RIM, 



00651000 
00651100 

jnhat;foriwaro;oo6^1200 



INTEGER 
BOOLEAN 
BEGIN 



what»adr; 
range; 



00652000 
00653000 
0065400Q 



INTEGER H,L*T; 
BOOLEAN PP; 
_T»*IF PP*«CADRs03 



00655000 
00656000 
Q0657Q00 



THEN WHAT ELSE ADRf 



if not pp then if pdataqesc ( t ,h ) and h,[bl 4 oj neq then else 

range:*false; 

write(hnec»]>item>octal(t)> 



00656000 
00658100 
0Q65850Q . 



0CTAL(H»*HIHALF(T)), 
0CTAL(L1«LQHALFCT))# 
IF RANGE THEN OCT AL <H, [ 32» 10 3 + L .CF"1 ) 



00658600 
00658700 
00659000 



ELSE " "); 
IF 129<WHAT AND WHATSPRTMAX THEN 

M0VE(NAMSCNAME[WHAT3.CF3*LINE[4 3, 



00660000 
00661000 
00662000 



NAMEtWHATT.FF); 
IF SGLTOG THEN WRITECP* 17,L.I*EC * J > 
IF PP THEN 



00663000 
00664000 
00665000 



ELSE 



WRITECPCDBLJ#17# LINEC*]); 

END displayit; 

DEFINE DISPLAY(DISPLAY1»0ISPLAY2)= 



00666000 
00666500 
00666900 



DISPLAYlT(0lSPLAYi,DISPLAt2,O)#; 
BOOLEAN PROCEDURE OPERAND( AT* WHAT )J % 

value at; X 



00667000 
00668000 
00668100 



INTEGER AT; % 
REAL WHAT; % 
BEGIN % 



00668200 
00669000 
0Q67000Q 



INTEGER R*C; * 

IF FLGBIT(M[Rt*AT.RQW#C*«AT.CQL3) 

OP£RANOt»FALSE % 



006/1000 
00672000 
00673000 



THEN X 



00674000 
00675000 
00676000 



2< 

3 



6 

7 
8 
9 

10 
11 
12 
13 



16 
17 



21 

22 

23 ( 

24 

25 

26 I 

27 

2fl 

29 ' 

30 

31 

32 ( 

33 

34 

35 I 

36 

37 



41 
42 



47 
48 

49 
50 



m 



55 
56 ' 
57 



h 



ELSE % 
BEGIN % 
WHAT»=MfR*C3f 



00677000 
00678000 
006/9000 



i 

2 

3 

4 

6 

6 

I 

8 

9 

10 

11 

12 

13 

14 

|1S 

'16~ 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



FIND 



operandsstrue; 
end; % 
operand; % 



00680000 
00681000 
00682000 



boolean procedure ce5cki ptor c at > wh at * ki nd } ; 

value at; 
in tkge r a t? 



00683000 
00684000 
L6-8JK 



REAL WHAT»KINo; 
BEGIN 
INTEGFR R- tCl 



-&QJ 



i QOO 



00686000 
00687000 
OQftBSOOO 



IF (KINDisQCTALCCHRS(MCRlsAT.RQh#Cl«ATiCUL],0,n))*"40" THEN 00669000 

BEGIN 00690000 

DESCR I PTOR . sTRUE; QQ691QQQ- 



what»*chrs(mcr,c]*1»7); 

end; 

:nR DES CRIPT OR? 



00692000 
00693000 
00694Q0Q 



boolean procedure 

value at; 
intf gfr at; 



f»UATADESCCAT*rthAT); 



00695000 
00696000 
0069700Q 



REAL WHAT; 
BEGIN 
INTE G FR KIN D! 



IF DESCRJPT0R(A7»WHAT»KIN0> 

KIND«"50" THEN 
PDATADESC8=TRUE; 



ANO 



end; 

BOOLEAN PROCEDURE COKTRUlDESC ( AT> WHAT ) ; 
-VALUE ATJ 



00698000 
00699000 
007QQQOO 



007U1000 

00/02000 

.QQ7Q300Q. 



00/04000 
00705000 
00/06000. 



I 

R 

BEGIN 



NTEGEP At; 
EAL WHAT; 



00707000 
00708000 
00/U9000 



NTEGER TYP; 
ONTROLDESC»*DESCRIPTORCAT#wHAT*TYP) 

TYF .[ 4QM3 »1 Aiifl 



AND 



00710000 
00711000 

no7i?ooo 



typ.c^3'i]«o; 
eno controldesc; 

integer minlnk»minpad,maxbad,maxlnk; 



% 



00713000 
00714000 
0Q/15QQQ 



BOOLEAN NE£DCHECKAVAILNKS;»FALSE IF 

ARRAY C0MMTC0U9]; BOOLEAN COMNT; 
PROCEDURE kCPENTRlES; 



O.P'MT DUMP 



00716000 
00717000 
00/16000 



BEGIN 

SGLT0GJ=TRU 

PISPLAYCBED 



e; 

'FALSE); 



00719000 
00719100 
00720000 



45 
46 
47 
48 
49 
50 
51 



DISPLAYCPRT 
DISPLAYUAR 
DISPLAYUNT 



#FALSE); 

#false>; 
rnsc^false); 



DISPLAYCSHE 
DlSPLAYC JOB 
DISPLAYCNFO 



ET#FALSE)J 

NUM/FALSE); 
'FALSE); 



00/21000 
00/22000 
00/23000 



00/24000 
00/25000 
00726000 



DISPLAYCIST 
DISPLAYCWAI 
PISPIAY(P 1H 



ACK*FALSE>; 

TOUE^FALSEJ; 

IXi>FALSE); 



00/27000 
00/28000 
0Q/29QQ Q 



52 

53 



54 

55 
56 



DISPLAYCF2M 
SGLTOQ»=FAL 
ENDi 



iX. FALSE); 

b E ; 



00/30000 
00/30100 
00/31000 



PROCEDURE GETPRTENTR I ES; 

BEGIN 
REAL ADRtWCtPRTRQWM J 



00732000 
00733000 
00734000 



h- 



12 
13 

I 14 
15 
16 

I 17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
50 
31 
32 



33 
34 
35 
36 

37 ~ 
38 



40 
I 41 
42 
43 
! 44 
45 
46 
1 47 
48 
49 
50 
51 
52 
S3 
54 
55 
56 



¥!• 



rial adrr; 
integer i/k; 

ARRAY MTXCQ t^tf J r 



FORMAT PRTCUTCXlO/"PRT LOCATIONS*"/ 

X20,"MIX"/X2G/"PRT"/)» 
Fir x?a» A?.v?fi. ass: 



00/33000 
00736000 
00737000. 



FORMAT BAUPRTC "********BAU 
LABEL XIT; 

I arel next; 



PRT DESCRIPTOR*******"}; 



00738000 
00739000 
007<tOOOCL 



IF NOTCPOATAOESCCPRT^L) AND L,CF NEQ 
AND L, C8I103 L5S 41) THEN BEGIN 
MlXMAynnFFTwrnMiyMAviii 



AND L».C8*103 GTR 



00741000 

00742000 
00743000- 



WRITE CP/BADPRT)/ 
ADR:* L. [331151/ 



GO XIT END. 



FOR t.TNK CK 



00744000 

00745000 

.00746000 



MIXMAX 
FOR n« 



00747000 

00746000 

.00749000 



1 STFP 



1 UNTIL (WC-1) DO BEGTk 



IF PDATADESC(ADR+I#PRTRQW) 
IF PRTROW =C THEN 

RQ to nfxt; 



ThLN ELSE PRTRLW»=G/ 



00750000 
00751000 
0075200 



KlaK+t; 
MIX[KJt* 1; * 

HIXfKI»Kt11l8 



NEXT: 
ENo; * OF FINDING 
WRITEfP/PRTnUTW 



SAVE MIX 
PRTRHWi 



NUMBER 



00753000 

00754000 

0Q7 55fl0iL 

00756000 

00757000 

nn75flnnn 



PRTS 4 VALID MIXES/ 



WRlTE(P»Fl*FOR IisO STEP 1 UNTIL K qO OCTAL (M IX [ 13 . C 33 J 153 ) ) i 
XITI 
END OF GFTPRTFKTHTFSl 



00/59000 
00760000 
00761000 



DUMPARRAY(PRTLOC); VALUE PKTlO.C; INTEGER pRTLOC; 



PROCEDURE. 
BEGIN 

INTEGER LOG, SIZE, 1/ 



00762000 
00763000 
Q Q76 3010 



FORMAT F(X2#I4#X2,2(0#X1))/ 

0ISPLAY(PRTL0C*TRUE)1 

IF PRTLOC GE O 129 AND PRTLOC 



00763020 
00763022 
QQ763Q24 



IF PDATADESCCPRTLCC'LOC) ThEN 
IF SlZEJ*L0C.[8:iCJ NEQ THEN 
IF LOCS'LOC.CF GTR THEN 



LES PRTMAX THEN 



00763026 

00763028 
0Q763Q3Q 



BEGIN 

FOR Ij*Q STEP 1 UNTIL SI2.E-1 DO 

WRITE CP*r»I*OCTAL(HIHALF(L0C*l))>QCTAt(LQHAlF(L0C*l>))J 



00763032 
00763034 

QQ763Q36 



ENO 



write(p[dbl3)/ 
end; 
dumparray; 



00763038 
00763040 
00763042 



procedure dumpcesspool; 

BEGIN 
FORMAT HDR("025-ABNsABNQRMAL , V"Q24-RR «REaO READY"/ 



00763044 
00763046 
00763048 



"D23-BFL = BUFFER MNAL LOCATION"/ 
"C21-WR =WRITE READY"/"020"BSY"BUSY H / 
"ni8"NTRsOTCU NbT READY"/ 



00763100 
00763105 
00763110 



"NOTEtBSY ANO NTKsADAPTER/OTTU NOT READY"///); 
FORMAT WHATFlLE("CORE P0RTIQN OF SEPTIC /"> Al* A6/ // )i 
REAL I,BjFROMJ BOOLEAN LOJ . 



00763U5 
00763120 
0Q763125 



FILE SEPTIC DISK SERIAL ( 2* 60/ MYUSE* I NPlT ) ; 

DEFINE BUMPI » I»*I + 1jU 

HFFINE INTSPsTNFPtf; 



00763130 
00763135 
00763140 



ARRAY CC*NAM[0t33; 

LABEL LOOP#EOj; 

STREAM PROCEDURE INlTrAi; 



00763145 
00763150 
00763155 



00763160 
00763l6'5 
00763170 



4 
5 
6 
7 
8 
9 

10 
11 
12 
13 



>r 



8 
9 
10 

11 



(15 

lie" 



18 
19 

20 



25 
26 
27 
28 
29 
30 



33 
34 
35 
36 
37 ~ 



38 

39 



41 
42 



47 
•8 



«9 

50 



52 



55 



BEGIN D1«=A; DS:=32 LIT 

"PASS INTACT. INTWRITE 
END INI T I 



HLAO 



STREAM PROCEDURE FLLC A,g,C>D,E ) ; VALUE B,C«DJ 
BEGIN 0I»*E; 15CD5I*8LIT" " ) ; DH*Ei 3I**A; 

DStcxos: sit»LOc hj Di»»ni*ii 



00/63175 
00763180 
007 63 18 5 



00763190 
00763195 
Q76 3?00 



2(DS: = 2DFC; A ; *0I# 1 1 * 01-2 J DS ; sF ILL; 1 : =A ; DS »*L JT"/" ) ; 00 7 6 320 5 
DI*«DI-j; DSJ=4LIT" "; 00763210 

ST'»Sit<>; SKIT ? SB/ * START aT 0?b O0X6J&4.S 



if sb then 

DP-DI + 3J 
IF SB THEN 



DSJ«3L1T W A8N" ELSE DI»«UI*3J SKIP SBJ XD25 
DSts3LlT"RH « ELSE DII»P1*3J SKIP SBi *H24 



D I * « 1 4 3 ; 
IF SB Then 

DP-DI43; 



00763220 
00763225 
QQ/63 2 3 Q 



DiJl = 3LlT"BFL M ELSE DI* a DI+3; SKIP SB* *D23 



SKIP SBJK.ZGNORE 022 
IF SB THEN 0S;s3LlT M WR 

Dn«oi«frj 



00763235 
00763240 
00763205 



" ELSE 01**01+3; SKIP SB; XD21 



IF SB THEN DS*=3LIT W BSY" ELSE DI»sUI+3J SkIP Sb; *D20 

di«*di+3; 

SKIP SB,; *TGNt1RE 



0076 3250 
00763255 
0076 3260 



019 



IF SB THEN DS5=3LIT M NTR" ELSE DI.sDI+3; »D18 
END FLLi 
PROCEDURE TIMfA.cn; VALUE a; REA| , tl array CcrQ.i 



BEGIN INTEGER l»Ji 

STREAM PROCEDURE FT(A»B); 
BEGIN SI:=A; PUbBj 



END 



«CDSt«2 dec; os»«lit •""); 
di»»di-i; |)SI«5 LIT " "; 

X£i , 



FOR 11*3 STEP -1 UNTIL DO 
BEGIN CCmSsj:=A MOD 60; 
At = A DTV. 60? 



END 



end; 

FF(CC*LlNEC73)i 

tim; 



boolean stream prccedure (ilunk(a); 

begin si:»a; if sc-" " then tally: 

glunk»-tally; 



i; 



END GLUNKj 
PROCEDURE MMM(B#I); 
BEGIN REAL CI 



VALUE BI REAL I,B; 



STREAM PROCEDURE MOVECA*B)i 

begin si i=a; pi :=b; 

__ 6CIF TGRfiLF THEN nSl*LlT 



E.L SF 



IF SC*"*" THEN DS»*CHR ELSE DSS*CHH); 

END move; 

rm Ct*Q STEP 1 UNTIL B"l no 



MOVE (INTSPtBUMPl INLINE CC J )> 
WRITECP»BfLINEl*3)i 



END? 



%%%%%%%%%%%%%%%%%%%%SJ A«T 

INITCNAM); 

IF OPERAND(TOGLE*I) AND BOQLEANC 1 ,_t 1311 ] ) 



THEN 



IF PDATADESCC ARGH,FROM) AND FROM. [ 8 : 10 ] = 1 28 THEN 
IF 0PERANDC(FR0MI=FRQM.CF)+127#1) THEN l.O» = TKUE 
FLSF GO TO EQJ EL.SF GO TO F:OJ ELSF GU Tfi fpjj 



WRITE(PCPAGE3)I 
■HRITE<P»KHATFU.f#I.C6i6]*I); 

DISFLAY(AR fl H» TR ME)i 



00763265 
00763270 
00763275 



00763280 
Q0763285 
0Q76329Q 



00763295 
00763300 
00763305 



00763310 
00763315 
00763320 



00763325 
00763330 

00763335 



00763340 
00763345 
0076 3350 



00763355 
00763360 
00/6336-) 



00763370 
00763375 

0Q 76 3 3SQ 



00/63385 
00763390 
00763395 



00763400 
00763405 
00763410 



00763415 
00763A20 
0076 34 2 5 



00763430 
00763435 
00/6 344 



00763445 
00763450 
0C763455 



00763460 
00763465 
Q Q76 3470 



IB 
19 



24 
25 
26 ( 
27 
28 
29 i 



34 
35 { 
36 
37 
38 i 



41 I 
42 



49 



55 
B6 ( 
57, 



10 

11 

12 
13 



15 
16 
17 
18 



19 

20 



21 



24 
26 



27 
28 



30 

31 _ 



32 
33 



34 
35 
36 



39 



47 
48 



49 
50 



53 

54 



56 
56 



WRITE(P*HDR); 

GO EDj; X VOID THIS CARU 

FILL SEPTIC WITH "SFPTTr 



TO DUMP SEPTIC DISK FILE 

Mi r. 



WHILE 
BEGIN 

LCJQPi 



L0 DO 

READC SEPTIC, 60, 1NTSPC*]HEUJ3; 



I t aO ; 



IF CB**lNT5PCIi}..C9»9Js»0 THEN GU Til 
FLKNAMCB,[7:23 3,B,t9:43,B,l.l4s43,B, 
TIM(lNTSPCBLMPI].ClBl30Jf CO; 



t2l«12]'LINE); 



WRITECPM0,LINEC*3); 

IF C8«»B.C33I 153 >/0 THEN 

BEGIN WHILE R GTR 14 0(1 



BEGIN MMMC14,I); 
MMM(B,I); 



b* = B-U; END/ 



end; 



writecp); 

IF 1*59 THEN 

IF GLUNK(INTSPCBUMPI3) 



THEN ELSE GO TO LQOPJ 



end; 
eoj: if lo then 

begin close(septipi 



ldi=false; 



IF OPERANDCFROM+125,1) AND I NEQ THEN 
IF OPERANBCFROM+62,1) AND Cl*0 OR 1=64) 
BEGIN FRQMtaFRUM+H _ 



THEN 



IF CBJs512-CR:=FHaM,CuL)) LSS d:=O0) 
BEGIN MCVt(M[FR0M,8QW,K],iNToP,B); 
n:=n; i; s <sn-R; frum; =FmiM + *n ; 



THEN 



END ELSE BJsO; 
MQVE(MtFROM,R0W,R]MNTbPCB3,I); 

lien? go Tn tonp ? 



end; end; end; 

integer stream procedure mcpcntca); 

BEGIN SlIsl.QC a; S I : s S T + 1 i 



value a; 



_EM. 



7CIF TOGGLE THEN TALLY lsTALLY+1 ELSE IE SC NEQ "<**' 

TALLYlsTALLY + H5I ,a, Si + l)i WCPCNT i «T ALLY> 
nF mcpcntj* 



THEN 



INTEGER PRTCOqe; % SET TO 0,1 OR 2 bY CHECKPRTFILE 

PROCEDURE DATIME; 

BEGIN INTEGER IJ BOtll FAN 



BJ 



STREAM PROCEDURE pRTFl LEMESSt P,L#C )j 
BEGIN LABEL MAYBE, BAD, FIX, XI T,* 
SH*P; DTt»L» D5:s4 wqs; 



value c; 



ci »*ci+c; 
go xit; % 
go maybe; 






go bad; X 2 

MAYBE *DSJ«ttfT"M APPEARS "J,- GO Fix* 
BAD» DSl«12l.TT"fUEFlNlTELY "J GO Fix; 



_EMH 



FIX «DSI«10lIT ,, INCORRECT> ,, J 
XIT :0Si*32Lir" "; 
P8TFU .E MESS; 



IF NOT COMMON THEN BEGIN 

IF NOT OPERANDO'MCPVERSIQN) THEN WRITEC P* BADCELL3 )i 
IF FLGBIT<MCQATE. ROW, DATE, C0L3) THEN ^ 



WRITECP^BADDATE) ELSE 
BEGIN 

DATX » = M[DATE. ROW, DATE. C0L3; 



IF 



OATES( DATX* DATE TAKEN* DAYS, YE ARS)i 
END* % OF DATE 
FLGBITCMtxCLQCK*BQW*XCLQCK.CQL3) THEN 



00763475 
00763480 
007 6-148 5 



00763490 
00763495 
00761500 



00763505 

007 6 3510 

-007615A5_ 



00763520 
00763525 
00763530 



00763535 
00763540 
0Q7 Q 3 54 5. 



00763550 
00763555 
00763560 



00763565 

00763570 

_ Q Q7 63 5_7_5. 



0076 3580 

00763585 
Q0763«>on 



00763595 
00763600 
00761605 



00763610 
00763615 
00763620 



00763625 
00765000 
00766000 



00767000 
00768000 
nn76gnnn 



00769900 
00770000 

oomooo 



0077UOO 
00771105 
00771110 



0C7H115 
0077U20 
00771125 



00771130 
0077U35 
Q Q 77 1H0 



00771145 
0077U5C 
0077U 5 5 



00772000 
0077 3000 
00774000 



00775000 
00776000 
00777000 



00778000 
00779000 
00780000 



ft 

2 
3 
4 
6 
6 
7 
8 
9 



10 
11 
12 
13 
14 
115 

'16 

l 
17 

18 

N9~ 



20 
21 



22 
23 
24 



25 
26 
27 
28 
29 
30 



31 
32 
33 
34 
35 
36 



37 
38 
39 



40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



55 

56 



WRITE CP,BADXCL0CrO ELSE 

BEGIN 
XCLUCX Is M[XCL0CKJ<Urt,XCLQCK.C0L3J 



T I ME SCXCLOCX, TIME TAKEN, MINUTES, SECONDS); 
end; X OF XCLOCK 
PRTFlLEMESS(PRTNAME,LINE,PRTCQDE)i 



WRITE(P*8#LINEC*3)i 

WR I TECP'FANAL, VERSION); 
HRITE(P,FTAP0SK,FILl-.TYPE,TDMFlD.C6t o ],TL.MFlr., 



TQFlD.[6l63,TDFlD); 
WR I TE(P,FCOMVAL*REALC COMMON)); 
WRIT£(P,X1MARKXI,IF B* »( H »MCPCNT ( MCPVERS ION ) GTR 



6i 



THEN MCPVERSI0N,C6I63 EcaE " ", IF B THEN 6 ELSE 
THEN 1 ELSE I, MCPVERSION'PAIETAKEN, DAYS, YEARS, 
T I M ETAKEN, MINU TE S, SECONDS); 



IF 1 = 



end; 

IF SHAREDISK THEN 
I F QPERANnCSYSNO,!) 



AND I GEQ AND 1 LFQ i TH(-N 



WRITECP#SYSlD,I + m; 
DATES ( T IME ( ), DATE AN aLY/ED'DaVS, YEARS); 
TlMCSf TIMF( 1 )»TlMFAhlAL,YZED^MlMjlESf S F CQN Uh) 



W«ITE(P'FMXX,DATEANALYZED' DAYS, YEARS, TlMEANALYZ ED* IMINUTES, SECONDS); 

IF COMMON THEN WRlTE(P); 
- I£ NOT CQMMQN THEN BEGIN . . 



IF FLG6 ITCMCCL DC K. ROW, CLOCK. CULJ) 

WRITECP,BADCLOCK) ELSE 
BEGIN 



THEN 



CLOCX !* MCCLOCK. ROW, CLOCK. C0L3; 
IF XCLOCX LSS CLOCX THEN XCLUCX i sXCLOcx+5184000; 
TlMES(XCI.0CX»CLOrx,TTMFl l ASTril..tMINUTF S, SECONDS); 

UCTTr/D.ruV'i.T i'Uli ,\ >. T u i . M i \i i , T .- c . i. ■ I- n m i-. c \ • 



EMLLX 



end ; 
end; 
of oattmf 



WRITE(P,FMX2,TiMLLA3THL»M i iM u TtS,St.cQNUS); 
T I MES( CLOCX, SI NCSLASFHL, MINUTES, SECONDS); 
HRITE(PCORL.»rMxa>Si'MCSl AjTHL #M|NU Tt;S»SE.C; 



ONDS), 



XOF CLOCK 



PROCEDURE PRINTARRAYRDWCPRTLOCINX)' 
RFGIN 



VALUE PRTLUC,Inx; 
INTEGER PRTLOCINX; 



INTEGER L0C*SIZE; 

BOOLEAN T0G,C0MSAVE,DBLSAVE; 

LABEL AGATN; 



00761000 

00762000 

JL0_7JLAQ.DJL 



00/84000 
00785000 
00765400 



00765500 
00785550 
0Q7656QO- 



00785610 
00785700 
007 66000 



00787000 
00768000 
00789000 



00790000 
00790100 
Q079Q110 



00790120 
00/91000 
079 2000. 



00793000 
00794000 
00795000 



00796000 

0G79700C 

-00.198000- 



00799000 
00800000 
OOflOlOOO 



00602000 
0080300C 
00604000 



00805000 
00806000 
0PB07Q00 



00807100 
00807H0 
00807120 



STREAM PROCEDURE F I XL INEC L 1 NE, I uX ) ; 
BEGIN LOCAL A,B; 
Sp«LlNEM(Sl«sSl+b); 



VALUE INX; 



00807130 
00807140 

0080715Q 



32CIF SCa" " THEN JUMP OUT ELSE SI**SI+i); 

AtaSi; on*A; OS:»LlT f, t M ; AI*DH 

sh*lqc inx; psis4 dec; b»soi; 



00807160 
00807170 
OQ 8071 8 Q 



00807190 
00807200 
Q0807 21Q 



du»a; os» = 3 fill; 

DSi=3LlT M ,*3"; 

end f ixline; 



oi;=b; 



if t0g:*b00l£an(inx.cu13) 
oisplaycprtloctrue).; 

TNX»aABS(TNX); 



00807230 
00807240 
QQ807?5Q 



THEN 



comsavej=commdn; 
commqn:=false; 

nBLSAVEfnOUBLESPACE; 



00807260 
00807270 
00807375 



DOUBLESPACEl'TRUE; 

IF PRTLOC GEQ 129 AND PRTLOC LEG PRTMAX THEN 

AQMN . 1 ;. 



00807280 
00807290 
00807295 



00807300 
00807310 

0807 320 



r* 



>r 



19 
20 



22 
23 
24 
26 



26 
27 
28 
29 



31 
32 



34 
35 
36 

37 ~ 
38 



40 
41 
42 



43 



46 
47 
48 



49 

50 



52 



55 
56 



IF PDATADESCCPRTLGC^LOC) then 

IF (SlZEI«L0C,t8!lO]> NEQ THEN 

TF TOG THEN PR INT (I UC :=t.,IK ..CFtM IM M AXCQR M, PC + S I Z£ ) ) 



F.LSF 



BEGIN 



00807330 
00807340 
00807350 



DISPLA.YITCI»RTLOC#TRUE#P8TLOCi«lOC,CF + INX)1 
FIXLINECt, tne/INx;; ' , ■; 



WRITECPCDBLJMi>#LlNE[*]>i 

togjstrue; 

GO AGAIN? 



00807360 
00807370 
00807380 



00807390 
00807400 
00 8,0 7 ft 1.0. 



end; 

COMMONt«COMSAVE; 
nnuHLFSPAr.Fi«nmsAVF: 



END PRINTARRAYROW; 

DEFINE PRINTARBAY(PRINTARRA¥1)= 

PRINTARRAYRnhf PHINTAWHAY1*-! J»i 



00807420 
00807430 
00807435- 



00807440 
00807450 
Q Q80746 Q 



DEFINE PA*PRINTARRA¥#,PAR0W*PRINTARHAYR0W#; 00807470 

COMMENT! THE FOLLOWING PROCEDURE IS INTENDED TO BL MODIFIED TO SUIT 00807480 

INDIVIDUAL. USFR DFBuGfiING REQUIREMENTS. tt ai i tins am array. npHn74«g 

EITHER 1 OR 2 OIMENSlQNAL* TO bE DISPLAYED WITH A MINIMUM OF EFFORT. 00807484 
IN GENERAL* A 3 CARD PATCH IS NECESSARY TO THE ANALYZER* ONE CARD TO 00807486 
DFFINF AN FLFMFNT IlM "PKTS"> SFqUfNEL *Q0 1 ? 1 OOP* aNQTHF* TO MaKf a n E MTHY 0nB07ilflR 
IN "FILLINF0 W , SEQUENCE »G0l65000* AND A THIRD TO CALL BELOW ON 008o749Q 

m PRINTARRAY"(OR "PA") FOR 1 DIMENSIONAL ARRAYS OR ON 00807492 

"PHlNTARR A YR tl H-cnR "PAROW") FOR ? DIMENSION A L A RRAYS . nnnnr^oa 



NOTE THAT THE PROCEDURE "PRINTSELLC I LDARRAYS" IS CALLED ONLY hHEN 

C0MM0Nsl6; 

PROCEDURE PR I NT SELECTED ARRAYS) „ ^___ 



BEGIN 

INTEGER I; 
. TF n UMPTA BI.ES 



00807496 
00607498 
8 0750 



THFN 



00807510 
00807515 
00807520. 



BEGIN 

WRITECPCPAGE])i 
TF DFX THEN PAf EUC W 



PACMEMASK); 
PACQTIMESjj 
PA(STATION); 



00807530 
00807540 
00807550 



FOR I*=0 STEP 1 UnTIl 15 DO PARLh(ST AT IL'N# I )' 

end; 
nuMPCESSPnoi ; 



00807560 
00807570 

onao7s7^ 



end printselecteoarrays; 
boolean baocomment; 
format comntparc w -— parity 



00807580 
00807890 
QU8C7899 



ERROR OCCURRED IN COMMENTS BLOCK*. *»)} 



PROCEDURE LOAD; 
BEGIN 

LABEL EOT; 



00807900 
00808000 
00809000 



00810000 
00811000 
00812005 



LABEL EF»PR#IGPAR; 

LABEL FLAG»PAR#BADTM#IUNOREPAR;x 

FORMAT BADEQFC"— -INVALID EOF AFTER BLOCK * »,12), 



PRTFILE("PRT FILE USEO IS % A l > A6# "/", A \> A6# X8) > 
PARERR ("---IRRECOVERABLE PARITY I In BlOCK * ">I2)> 
FLAGERRC — "FLAG BIT IN WORD ZERO UF BLOCK t n »\2)'» 



00812Q10 
00813000 

00814Q0Q 



00814J00 
00815000 
00616Q00 



ARRAY At0«532); 

STREAM PROCEDURE MQVERCS'D); 

BEGIN 



END 



Si :=S; 
16(DS»i 

mover; 



00817000 
00818000 
00819000 



Ul 
32 



:sd; 
wdS); 



00820000 
00821000 
00822000 



STREAM PROCEDURE GETCOMMUNCCQMMT<N>; 
BEGIN LOCAL X*Y* LABEL XlT#HlT*GETNUM; 
DM»Nj DSI«8LIT W *00QQ0Q1 W ; SlUCQHNTJ 



00822100 
00822U0 
00822120 



>r 



10 

11 

12 
13 

14 

its 

|, 6 - 

17 

IS 



19 
20 



21 



23 
24 
2E 



26 
27 
28 



30 
31 " 
32 
33 
34 
35 
36 
37 " 



39 



42 
43 



47 
18 



49 
50 



52 
S3 



55 
56 



?(20(IF SC = "C" 1HE.N BEGIN Sl»«SI + li 
IF SCs"0" THEN BEGIN S I I * S I M J 
TF 3C = "M" T HFN JUMP OUT 2 TD HIT 



E L SE S H» 5I + 1 



END ELSE SlJsSl + 1 END LLSE SII»SI + U)J 

go xit; 

H1TI15CIF SCs"=" THFN JUMP CUT TO GFTNUM FLSF SlUSUDi fiD 



0082213C 
008221-UC 
08 22150 



00822155 

00822160 
XIT;0Q822l7fl 



GETNUMlSI»=i>l4li 

DIS=L0C x; 

10(IF SC = " !! THEN 



su»m + i elsf jump hutj; 



5(IF SC GEQ "0-" THEN If SC lEQ "9" THEN 
BEGIN TAUYlsTALLY + lJ DS*»ChH END ELSE JUMP 
Y »«TALl. Y J 



00822175 
0062218C 
00822190- 



OUT ELSE JUMP OUT) J 



SIJ=L0C x; 
disbn; 

DSiyY QCTi 



00822200 
00822210 
00822220 



xit» end getccmmon; 
integer i; 

ALPHA N^N?; 



00822230 
008222^0 
6 2 2 25 



CQMNT»«BADCQMMENTl -FALSE* 
IF RELOAD THEN 
-£0R IibQ STEP 1 UNTIL ft 3 DO. 



00822260 
00823000 
00823100 



UNLOCK CMC A CQ3, R0W ,»* I ) ; 



IF MULTI THEN 

READ REvERSECMDLMP#20#C0MMU*3HBA0TMJlGPAR3; 

IF FALSE THEN IGPAR1 BADCQMMLNT taTRUF ; 



00824000 
00824100 
8 24 U0 



00824200 
00824210 
Q0 8 2 4??0 



FOR U=0 STEP 1 UNTIL 63 DQ 
BEGIN 
IF 



MULTI THEN READ RiVERi>E( MOUHP »533» AC » ] 3 [BADTM* PAR 3 El bE 



READ(MDUMP*533*AC*])CBA0TM:PARJiX- 

IF FLGBITCA) THEN GO FLAG ELSE 

IF M0D0NCA[Q].C33l3ni»KUT BOOLEAN ( A [03 . L 1 > 1 3 ) 



00825000 
00826000 
00826990 



THEN 



BEGIN 

M0VERCACl]#MCACO3»HtJW#O]); 

LncKCM[Arn].RriR.»i)i 



00827000 
00828000 
0Q829Q0Q 



END ELSE IF 
COMMENT ONE 



END; 



AC03,C3J53*0 THEN l:sl+?) % 
BLOCK IS WRITTEN PER ABSENT MOD; 



00830000 
00832000 
006321,00 



TDMFIDJ'MDUMP.MF ID; 
TOFIDtaMDUMP.FIO; 
FILETYPE? = IF VDUMPjTYP_Es2 



00833000 
00833010 
00834000 



IF NOT MULTI THEN 
IF FILETYPE* M TAPE M 
IF TDFlD.C3Q*l83sl 



ThtN "TAPE" ELSE "UlSK"; 



00834050 
00834060 
00834070 



AND TOMFID NEQ. THEN 
THEN ELSE MULTH»TRUEi 



IF REPEATING THEN IF TDF ID . I 30 I 18 3 = 1 THEN CLOSECMDUMP) 

ELSE CLOSECMDUMP**) ELSE 

IF CAUXTYPEIsAC03.[3>5J)>0 THEN 



00834075 
00834080 
00834085 



IF FILETYPE*"TAPE H TH£N 

READCMDUMP,20,C0MMTC*3)CE0TJlGNCREPAR3 ELSE % DISK 
M0VS(AC513]>C0MMT>20); 



00834095 
00334097 
0Q834 1QQ 



IF FALSE THEN IGNOREPARJ BADCUMMEN WRUE; 

comnt is true; 
getcommonccommtjni ); 



00834200 
00835000 
00835100 



IF Nl GEO THEN COMMON **B00LEAN(N1 ); 
IF MULTI THEN N0M0**TRUE ELSE 
READ(MDUMPCNC3)CEOTlPAR3; 



00836Q00 
00837000 
00837050 



nii*o; 



IF FALSE THEN 

BEGIN 

EOT! .CLnSFfiim-MPl! 



00&37055 

00837095 

- 00837 100 



nqmo»«true; 

END J 

IF COMMON PR BFLflAH THEM 



00837200 
00837300 
00936000 



00838010 
00838100 
00839000 



3 
4 
si 



46 
47 < 
48 
49 
50 i 
51 
52 
53 ' 
54 
55 
56 ' 
57 






12 
13 
14 

15 
16 
17 
18 



19 
20 






22 
23 
24 
26 
26 
27 
28 



29 

30 
31 
32 



34 
35 



39 
40 
i 41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
61 



52 
53 
54 



56 
56 



ELSE. 
BEGIN 
I F PRT3 ? 



THEN RfcAnAHRAY(3C)OUZM()t*1f Q) F LSF 



spacecdiskjI); 

readarray( names ize#namec*]»prtbase); 

READARRAV(NAMSST7F.lMAMSr»1.UW 

readarrayunakesize* inamE[*j>o;>; 
readarraycinamsslze>inamsc*j*0)' 
c.i nsFcniSK)8 

N1I«DISK«MFI0; N2i»0lSK,Fl'0i 

HRITE(PRTNAMEC*3'PRTFILE*N1«C6I6J#N1#N2.(6«63#N2)J 
E ND J 



IF RELOAD 
BEGIN 
MAXM0ntw7? % 



THEN ELSE 



_Lf_ 



WHILE NOT MOOONCMAXHOO] DO 

MAXC0RJ*4096x<MAXM00+j)»i; 

COMMON THEN FLSF 



MAXMOOJ*MAXMOU*iJ 



BEGIN 

PRTMAX«=PRTBASE+NAMESIZE' 
INTMAX i» INAM ESUE-i ; 



\i 



FOR II«PRTBASE STEP 
NSNAMEtn + f»RTBASE; 
FUR ULgjp STFP 1 UMTTl 



ISNAME[I]+RRT8AbEi 

FIXDEFINES; 

SETUPxNAMEANnxNAMSJ 



1 UNTIL PRTMAX DO N5NA«ECIJJ» 
INTMAX nO ISNAMfMJl* 



IF MYSTACKADR LSS THEN X LETS USE IT 
IF C0nTRQlDESc(7*I) THEN % CHECK FUR MSC* Ik CELL 
_I F I.TFgQ AMn ItsI.FF tiFo' THFN; % ASSUME M t\ ip 



end; 



mystackadr:=i+30; % may need moke ThAN 30 
cn p ; 



IF FALSE THEN BEGIN 
BADTMIWRlTE(SPQ,BAUEOF,I)J GO 
PAR; WRITECSPC,PAR£RR,I+1); 



FLAGS WRITE(SPG,FLAGERR* 1 + 1)* 

END load; 

PROCEDURE CHECKPRTF1LEJ* 



euprcg; 
go eoprog; 



go eoprugj end; 



%SIGNALS USER IF MCP/PRT fIlE *MlGHT* BE THE WRONG ONE 

BEGIN 

REAL LOC*TYP»i; . 



real mytype; 
label bad, maybe; 

DEFINE CHECkFqRlABELCESCRIPTOR' 



'IF LCC LSS THEN GO BAD ELSE 



INC0MPAT("---MCP/PRT FILE NOT COMPATIBLE WITH MCPS PRT IN MEMORY, 
DEFINE ERRMESS(ERRMESSl)=BEGlN HRI TE C SP0*ERRM£ 3S I ); 

HRITFCPTPAGF 1.FRHMESS1) EADJLll ^___ 



ooaaoooo 

00841000 
-00943000 



00844000 
00845000 
00846000 .. 



00847000 
00848000 



00849100 
00849200 
0OB50Q00 



00850100 

00850200 

- 0085 1 000 



00852000 

00853000 
_QQ 8 5 4000,, 



00855000 
00856000 

■ OoasEflflfl. 



00858000 
00859000 
on86Qnnn 



00861000 

00862000 

-00863-00-0- 



00863100 
00863110 

0Qfi63l?Q. 
00863130 
00864000 
.QQ8641QQ 



00865000 
00866000 
00867000 



00868000 
00869000 
0087 0000 
00871000 
00872000 
00873000 



00874000 
00875000 
00876000 



IF DESCRIPTORCLOCM'TYP) AND TYP-MYTYPE THEN ELSE GO ' M'aTbE#J 00877000 
DEFINE CHECKF0RPR0GRAMDESCRIPTQR*CHECKF0RLABELDESCRIPT0R#; 00878000 

FORMAT BAPPWTf-«"»VnUH MCP/PRT FILE IS WRONfi. ..»). 00879000 



•') 



MYTYPE 1* M 76*; 

IF (L0C««N0THINGT0D0) NEQ THEN 

CHECKFORLABELnFSCRIPTnR; 



00880000 
00881000 
0Q882QQQ 



IF CLOC«*STACKOVERFL0W) NE« 

CHECKFORLABELDE SCRIP TOR/ 

IF CI nCI«RETURN) NFft Q THEN 



THEN 



00883000 
00834000 
00885000 



CHECKFORLABELDESCRIPTORi 

MYTYPEI«"75*'; 

IF (L0C<«DIRECT0RYBUILDER)*0 THEN LOCf Ml 



00886000 

00887000 

008 880 00., 

00889000 

00890000 
0089100Q 



li 



9 

10 

11 j 

12 

13 

14 I 

15 

16 

17* 

20 < 

21 

22 

23 ' 

24 

25 

26 ' 

27 

28 

29 4 

30 

31 

32 I 

33 

34 

35 1 

36 

37 

38 { 

39 

40 



42 
43 
44 * 
46 



m 



48 

49 

50 I 

51 

52 

53* 

54 

55 

56* 

57 



^r 



1 

2 
3 
4 
S 
6 
7 
S 
9 
10 
11 
12 
13 



20 
21 



CHE.CKFORPROGRAMDESCRIPTUR; 

IT FALSE THEN MAYBEiBFGlN ERRMESS( INCOMFAT >; PRTC0UE*=1 END/ 
IF F Al SE THEN BADlRFfiTN FRRMFSSf B AHPRT ) ; PRTrrifJFI*? FNp ; 



END OF CHECKPRTFlLEi 
PROCEDURE DUMpMCPSPRT; 



FORMAT 



HDR(X42* W D C V C P S PR T'V 

X42>"- ----- - - -»///, 

2( w PR T M »Xqi"CnNTFNTS''/X1ft»"NAMrw.X?flW). 



OASHES(l20("-"n# 
F(Xa# M MEMORY MODS: ">8ll)# 
PRTITFMC2fAS," « ", [J, X 1 , U, X jj ) )i 



INTEGER LOC/N; 

LABEL EXIT/ 

IF DUMPCESSPOQLONLY THEN DUNTQUMPR T 8 = TRUE; 



IF NOT COMMON THEN 

BEGIN 

CHECKPRTFlLEi 



IF NOT DONTDUMPRT 
PRINTMCPOPTIONS; 
IF DONTD U MPRT THFM 



THEN BEGIN UATlME; HRI TEC PC QHl J ) END; 
FLSF 



BEGIN 

WRITECPCDBL]*HDR); 
F OR LOCiaACTUALPRTPASE STEP 1 UNTIL PHTbASF 



Dti 



BEGIN 

WRlTE<LlNE[*]#PRTlTErt,OCTAl<LUC)#UCTAL(hIhALFCL0C)}* 
OCTAL fLQHALF CLOD)* OCTAL t N » =X SN AMF r I n C. J 1 . 



OCTAL(HlHALF(N))*OCTAL(LOHALF(N))); 

M0VE(XNAMStXNAMEtL0C3.CF]#LlNECaJ#XNAMEtLaC] t FF)i 
MOVE (XNAMSrXNAMFCNI.CF 1*1 I NE [-1 ? 1 . XMAmF f Nl . FF > i 



WRITECPM5,LINEC*]); 
IF DONTDUMPRT THEN GO 



end; 



EXIT 



WRITECP'DASHES); 
FOR LOCJsPRTBASE+1 
BFGIN 



STEP i UNTIL PHTMAX 00 



WRITE(LlNE[*],PRTITEM,OCTALUUC),UCTALCHIhALF(lOC)), 
0CTALCL0HALF(L0C))»0CTAHN»aNSNAMECL0C3 )» 
QCTALCHTHALF(lM)l>aCTAi.(mhALFCiynn; 



MOVE CNAMSC NAME CLOC].CF]*lINEC 4], NAME CL0C3.FF); 
M0VE(NAMSCNAMECN3,CF1*LINEC12 3,NAME£N],FF); 
WRlTE(P»l5»LIttFt»]W 



end; 

EX IT8 



IF DONTDUMPRT THEN GO EXIT 



nextpage; 
end; 
end; 



WRITECPCDBLUF'FOR N:=0 STEP 1 UNTIL 
C IF MODONCN] THEN N ELSE lO])i 

dat ime ; 



7 DO 



IF DUMPCESSPOQLONLY THEN ELSE 

IF NOT COMMON THEN 

BEGIN ' 



fn d; 



mcpentries; 
getprtentries; 



nextpage; 



END OF DUMP OF MCPS PRTi 

PROCEDURE CHECKMEMORYLlNKSi 
BEGIN X __ 



00892000 
00893000 
008*4000 



00895000 
00896000 

00 89240. 0, 



00898000 
00899000 

00900000 



00901000 
00902000 
QQ 9P 3000 



00904000 
00904100 
00904500 



00905000 
00906000 
oo907nnn 



00908000 

00909000 

J109..JU100XL 



009UOOO 

00912000 

_Q0913XiQiL 



00914000 
00915000 
009JL6-Q.0il 



00917000 
00918000 
00919000 



00920000 
00920100 
009^ 1 000 



00922000 
00923000 
009^4000- 



00925000 

00926000 
OQ9,j7onn 



00928000 
00929000 
00930000 



00930100 
00931000 
009 31100 



00932000 
00933000 
Of)93annn 



00935000 
00936000 
0Q937O0Q 



00937500 

00938000 
00939000 



00940000 
00941000 
0Q94200Q 



00943000 
00944000 
Q Q94 5QQ0 



< 



i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 { 

27 

28 

29 ( 

30 

31 

32 { 
33 
34 
35 ( 
36 
37 

38 i 
39 
40 

«l 
42 

43 

44 % 

45 

46 

47 i 

48 

49 

50 % 

51 

52 

53 I 

54 

55 

56< 

5} 



h 



1 

2 
3 
4 
5 
6 
I 
8 
9 
10 
11 
12 



13 
14 
15 
16 
17 
18 






IS 
| 20 

21 

22 
I 23 

24 

25 
I 26 

27 

28 
i 29 

30 
31 
i 32 
33 
34 
35 
36 

37 ~ 
38 
39 
40 
41 
42 

43 _ 
♦4 
45 
46 
47 
48 



49 
50 



51 
52 
53 
54 
55 
56 



BOOLEAN ZEROK; REAL VO/ % 
BOOLEAN MSTARTOK; REAL VMSTAKT/ 
BOOLEAN NOWRAPAKni;Np; 



real link,vlink#prevlink; 

INTEGER AVAILN>AVAJLT»AVAILm; 
BOO LEAN PROCEDURE L INKOK (HQH J ) ; 



00946000 

00947000 

___!__.. 



VALUE WORD; * 
REAL word; * 

UNK0KlsW0RD.r3»6:iSTYPrtAX 



AND % 



W0R0tC9J6]<MlxMAX 
WORD. [15:33*0; * 
FORMAT RANGE(Xfi.-"PRlMA3Y 



AND 



00948000 
00949000 
00950000 
00951000 
0Q95200Q 
___l_Q_-_ 



LINKS FROM ".AS," TO %AS.» ARE QK".), 



FC0RECA5'" = ,, *2C0'Xn»X6,"CURE">xa,"FACT0R * ">F4,2, 
% MAX CORE = , %A5'"C"M5* ,, rS'%USlN(i "> A5>"< ", I 5* " )" ) * 
RAn.Xfl,A6," LTMK AT ">AS,'' f S NOT OK"), . 



00954000 
00955000 
QQ956nn n 



8A0PRIMARY(X8# M PRIMARY LINK AT ",A5," IS NOT OK"), 

AVLBA0(X8**AVAILA8L£ STORAGE TOTALS 00 NOT CROSS 
— AVI (Xfl."AVAII ARLF LINKS ARF nK. TOTAlTMr.". 



I4,"CDECIMAL) ARtAS OF %A5V'('W5> 
") WORDS UP TO "»A5>"C ,, ,I5# M ) WQROS EACH"), 
INTEGER N>T»y; * , 



oisplayco, false); 
oisplaY(mstart*false); 

DI SPLAYfMENQ,FALSF). 



00956100 
00956110 

x__z__a. 

00958000 
CHECK"), 0Q959000 

Qil9_Q_aQQ.. 

00961000 
00962000 

__ j_i__.io.oa 



DISPLAY(AVAIL, FALSE); 
IF OPERAND(CCRE'T) AND 
-REG IN 



T.C1»3]=0 THEN 



WR ITECL INEC *3*FCORE#OCTAL( CORE ),UcTAL(hIhALF( CORE))* 
OC T AL (LOH ALF ( CORE ))»I,[«Hft]/ 100, 
nCTALCCNt8T.CFx<Sft).CF),N, 



END 



0CTAL( tN:sT.FFx64) .CF),N)/ 
WRlTECPCDBLi*l5,LlNEC*J )1 
EL S E 



DISPLAYCCORE, FALSE); 
ZERQKl«OPERAND(0,VO) 

________ 



VO.C03:15]»o 
VO.FF: 

_____ 



AND 

AN D 



AND 
:(MAXLNK:sMAXCQ8-_) and 
GTR 1023 AND _____ |,5S 



0PERAND(V0.CF,T) AND 
MSTARTOK«aOPERAND(MSTART 
__1A___1____ 



4096 ANiU 



linkqk(t) and t,ff»0; 
,vmstart) and 
___. 



VMSTART GTR 1023 ANO VMSTarT LSS 4096; 
IF LNKSOK:sMSTARTOK OR ZEROK THEN 

MINLNK«~LINK»=IF MSTARTQK ANO ZERQk THEN MAX(VO.CF,VMSTAHT) 
ELSE IF MSTARTOK THEN VMSTART ELSE 
IF ZEROK THEN VO.CF ELSE 0* 
IF LNKSQK.. MSTARTOK THEN MlNLNK »»L1NK . «VMSTftRTJ X 



avalnkok»=true; 

N»=T:»o; 
WHILE LNKS8K AND MAxLNK>PR EVL INK DG % 



IF LNKSOKJ 



'(OPERANDCLINK^VLINK) AND 
LINKQK(VLINK) AND % 
VLINK.FF»PR£VLINK AND X 



BEGIN X 

prevlinki«link; x 
link»»vhnk.cf; t 



(IF LINK-MAXLNK 
THEN VLlNK.CFsO * 
ELSE VLINK.CF>L1NK))THEN 



00964000 

00965000 
00966000 



00967000 
00967100 

jCLO--yiio. 



00967120 
00967130 
0Q9671 4 



00967150 
00967160 
00967170. 



00967180 
00968000 
00969000 



00970000 

00971000 

J_____ 



00972400 
00973000 
Q 09MO OO 



00975000 
00976000 
00976100 



00976200 
00976300 
0Q977Q00 



00978000 
00978100 
0Q979Q00 



00980000 
00981000 
00982000 



00983000 
00984000 
00985000 
00986000 
00987000 
00988000 



3 

4 

5 ' 

6 

7 

8 I 

9 
10 
11 I 
12 
13 
14 I 
15 
16 
17 < 
18 
19 
20 I 
21 
22 
23 ^ 
24 
26 
26 ( 
27 
28 
29 i 
30 
31 

32 \ 
33 
34 

35 ( 
36 
37 

38 i 
39 
40 

41 I 
42 
43 

44 t 
45 



_ 



48 

49 

50' 

51 

52 

53 < 

54 

55 

56 I 



h 



12 

13 
14 
"6 
16 



18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 "~ 

32 



33 

34 

35 

36 

37 ~ 

38 

39 

40 



42 
43 



45 
46 
47 
48 
49 
SO 



52 
53 
54 

55 
56 



IF AVALNKCK THEN % 

IF BOOLEANCVUNK.CU 1]) THEN % 

IF AVALNKnKl«MAXLNK>PREVLINK THFN 



IF 



AVALNK0KI*(«3PERAN0(PrteVLINK + l#VLINK) ANO X 
VLlNK,tl»l*]»0) THEN X 
BFGIN X 



_I£ 



end; 
end; x 
not zerok 



AVAILM*AVAJLN+i; * 

availtssavailt+vlin^.ff; % 

AVATI.V»<MAXfA\/ATLM.tfLTMK T pir^ 



IF LNKSOK THEN 
OCTAL(MAXLNK)) 
BEGIN X 



THEN HRTTEfP.BADPRlMARY»(m 



WRITE(P*HANGE*1F 
ELSE 



*ERQK THEN ELSE OCT AL< MINLNK ) , 



IF somokf:»prevlinik>«inlnk then 

BEGIN X 

WRITECP, RANGE, IF ZERQK THEN Q gLSF QCTA l ( HIM MK ) . 



QCTALCPREVLINK)); 
WRlTE(P#BADPRlMARY#aCTALtLlNK))iX 

end; % 



minbadjslink; 

PREVLINKIsO; X 
LTNKfsMAXI NK; % 



WHILE OPERAND(LINK»VLINK) AND 

LINKOK(VLINK) ANO 

VLlNK.CF»PRrVl INK AMI 



LINK>VLINK.FF 
BEGIN X 

PREVLINKlaLINKi 



00 X 



link;=vlink,ff; x 
end; % 

IF PREVLIIVK30 THFN MAxBAUl »MAXC0R+1 LL Sr % 



WRITE(P#RANGE,OCTAL<MAXLNK)#OCTAL(MAXBADl»PREVLlNK))i 

WRITE(P#BADPRIMARY*OCTALCLINK));x 

SnMBKBigPRFV/l t^>n, 



end; x 
nowraparouno»=thue; 

IF AVALN K0Kl3(QPERANDCAtfATL>PREm-lNiO 



PREVLINKaMAXLNK+1 AND % 
0PERANB(PREVLINK#VLINK) AND X 
VLINK.riM73»n AND X 



AND 



VLINK,FF*32767) 
BEGIN X 

WHILE AVALNKOK AND 



THEN t 



NOWRAPAROUND AND 

(IF LNKSOK THEN AVAILN GT« N ELSE TRUE) 

(IF LNKSOK THEN AVAILT GTR T ELSE TRUE) 



(IF LNKSOK THEN AVARM GEO H ELSE THuE) DO 
IF NOWRAPAROUnD:*(MaXCUR GTR L I NK : = VL I ink . CF 
ANQ LINK GTR 0) THEN 



AND 
-ANP_ 



00989000 
00990000 
0Q991 0Q Q_ 



00992000 

00993000 
on994nnn 

00995000 
00996000 
009V700Q-. 



00998000 
00999000 
00999100 



IF 



AVALNKCK**CQPERAN0CLINK-1#VLINK) AND X 
LINKOK(VLINK) AND X 
BOOLEANCVLlNK.Clim AND X 

OPERANDCLINK+I^VLINK) AND % 
VLINKsPHEVLINK AND X 
OPERAND(LINK*VLINK) ANO % 



VLINK,U*l7]«0 
VLINK.CFXLINK) 
BE GI N X 



AND X 
THEN X 



oioooooo 
oiooiooo 

01002000 



010O3O00 
01004000 
01Q05Q0Q 



01006000 
01007000 
01008 00Q. 



01009000 

oioioooo 
o ton ooo 



01012000 
01013000 
010U000 



01015000 
01016000 
010 1 7Q0Q 



01018000 
01019000 
QlOgQOOO 



01021000 
01022000 
01023000 



01024000 
01025000 
01026000 



01027000 
01028000 
01 0290 00 



01030000 
01031000 
01032000. 



01032100 
01033000 
01034000 



01035000 
01036000 
0103610Q 



01037000 
01038000 

-0-L019O0JL 



01040000 
01041000 
01042000 



01043000 
01044000 
Q 1 045 QQQ 



7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 i 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 



• 
• 



56 
*J 



h 



I 2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 



40 
41 
42 
43 
44 
45 
46 
47 
«8 
49 
50 
61 
52 
53 
54 
55 
56 



NiaN+i; 

Tl*T + VHNK, FF; % 

M»»MAX(M«VLINK.FFJ ? 



PREVLINKJsLINKJ 

end; X 

IF NOT AVALNKQK THEN 



01046000 
01047000 
01048000 



IF LNKSOK AND 

NOTCAVALNKQKS 
LNKSCK. AND 



wRnE(P»BAa>"AvALHL"#nCTALCLlNK)) FLSE 



01049000 
01050000 
Q1Q510Q0 



AVAILN=N 
AVAUT*T 
AVATLMqM 



ANO 
AND 
ANO 



VLINK.CFsMAXLNK + 1) THEN WR I IE CP« AVLBAD ) 
WRlTE(P#AVL*N#QCTALCT)/T#OCTALCM)*M); 
TABLFSI.OCI-TF LNKSflK AND Qh>ER AND f M AXI UK, T ) 



ELSE % 



THEN T»FF ELSE -l; 

end else writecp^bad^aval&l'Soctalcmaxlnk + i)); 

WRITF(P[QRi U{ in 



end; % 

array mixstkl0i43]; 

PROCEDURE GFTSTACKSf RnMTHFriFP; 



BEGIN 

INTEGER U 
IIMTFRFR MTv; 



INTEGER M; BOOLEAN Bj 

FORMAT DUPBED(X8# M DUPLlCATE BED ENTRY FOR MiX; 
" * CHECK BED AT AiHINES.S =; W »A5» 



12. 



M (THIS ENTRY IGNORED )"); 
REAL V*TYp; 
IF QPERANrKJ08NUM,VjnBNUM) THEN 



IF VJOBNUM.[158J=0 AND 

VJOBNUM. [47U-]=Q AND 
PDA T ADESC( B EP*VB E DJ AND 



VJOBNUMSVBED.tS'lO] 
BEGIN 
VRED» 3 VBEn.CF; 



THEN 



IF 



FOR I lao STEP 2 UNTIL VJUBNl'M DP 
IF DESCRIPTUR(VBED+X*V#7Yp) ThEi\ 
Bla((MlXlay.C6l2]&TYP[43»^5l33) GTR 



AND CMlsWlXSTKCMlXl ) NEW 0) 
WRlTECP*DuPBED*MlX*OCTAU(vBED+n) 
ELSE 



THEN 



BEGIN 

bedstki»maxstk»smaxstk+i; 

MIXSTKCMIX3 t=h)EDSTK/ 



STAXCBEDSTKJIb 
V.FF& 
I C8S 388 103& 



end ; 



END, 



CREAL(MIX>0))C7»*7I Mi 



if b then writecpcdbl))) 
end getstacksfrokthebed; 
procedu re dumpmemqryandnqtestacks(frqm,t00); 



VALUE FROM, TOO 
INTEGER FROM.TOO; 
BE GIN 



*Z. 



BOOLEAN BEBDED; 
DEFINE T*L INK TYPE*/ 
REAL Li 



01051100 

01052000 

■ OlQ'.ZlOO 



01053000 
01054000 
OlQ^ono. 



01056000 

01057000 

.01Q56QQQ 



01059000 
01060000 
01061000 



01062000 
01063000 
QJL06AQ.0JL 



01065000 
01066000 
Q1067000 



01068000 
01069000 
01070000- 



01071000 
01072000 
Q1073QOO 



01074000 
01075000 
Q 1076 QQ Q 



01077000 
01078000 
01079000 



oioeoooo 

01081000 
Q 1O8 2QQ0 



01083000 
01084000 
01085000 



01086000 
01087000 
01088000 



01089000 
01090000 
01091000 



01092000 
01093000 
1 094QQQ 



01095000 
01096000 
0109700Q 



01098000 
01099000 
OllQOOOO 



01101000 
01101100 
01102000 



2< 
3 
4 
5< 



8 < 

9 

10 

11' 

12 

13 

14 I 

15 

16 



21 

22 

23 ' 

24 

25 

26 ' 

27 

28 

29 < 

30 

31 

32 ( 

33 

34 

35 < 

36 

37 

38 { 



40 



42 

43 



47 
48 
49 

50 ' 



54 
55 

56' 
57 






>r 



9 

10 
11 
12 
13 

14 
(16 

he" 

17 
18 
19 
20 

21 



22 

23 

24 

25 

26 

27 

28 

29 

JO 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 



• 



49 
SO 
51 
52 
53 
54 
55 



FORMAT ITE^CX2, A3," = ", 2C X4, A5 ) ) ; 
REAL R,ADR,Q,LL; BOOLEAN INTR,QT; 
RFAt Xj Ay, SIZE,? 



REAL iSTACKViSOOLEAN I3TACKQK, IRSTACK; 

BOOLEAN MCPSAVE#MxNOTOi 

DFFTNE MXnsNHT MVNmntl 



REAL DCQPTSTACK,DCQPTSTACKV> 

BOOLEAN DCSTACKfUCHIT; 

DEFINF nCgnr.QPTSTAr.K».Ur.\/ s ncaPTSTArkvy: 



INTEGER N,STKj 

REAL MX; 

FORMAT AVAT1 ARI Efy27,"**»* 



AVAILABLE ST7Ls". A '5."f". TS." ) W? . 



USERSTACKPRT(X2f,"MIX=",I2," STACK-pRT"), 
MlXUSE(X2 7,"MIX*",l2,Xi,A6), 
SE GDICT(X27,"MIX = ",I<J," SEGHfNT-mcT T nix Ah V") . 



MCPUSE(X27,"»CP— ",A6 3, 

MCPSTACKCX27,«MCP INDEPENDENT-RUNNER STACK"), 

INTARRAYCX?7."M0PS 1NTRNISC ARRAY"). 



TABLEAREA(X27*"MCP TAbLES")> 
ARRAY ATPCOITYPMAX+13; 
NOTPRjNiTCAl l LsXRUfcj 



fillareatype; 
if datacom then 

BEGIN 



DCSTACKJ=DC GTR 12V AMJ OPERAND( DC OCV ) 

AND DCV NEQ AND UC V . 1 1 * 32 ]«0 
AMD (nCVi-DCV.CFJ GTR 1021 AND 



0PERAND(DCV,R) and r»o ANO 
0PERAnD(QCV1,Q) AND Q.»C9t6}«0 AND 
(Q.r3»<s3sO OR Q.r3l63g,?l AMI Q.fglll»1i 



END OF LOCATING DCQPTSTACK AFTER MANY CHtCKS* 
ISTACKOK«=PDATaDESC(ISTaCK* ISTACKV) AND 

TSTACKv.ruMtn aih o aau 



(ISTACKVJsISTACKV.CF) GTR 0; 
iNTRJaPDATADESCClNTRNSCjOR) AND ADR.FFaO; 
AQRf APP.CF; FTLL ATPOJ HI TH 



"UNKNUW^CODE ","DaTA ", " IO-BoF" , 
,, ALGFIB M '"lNOBUF"*"CLBFIB , S" INTStG'S 



"HEADER", "MAlNT ", 



10", "SPACE ", "STACK 



"INT 13","SCRDIR","QP5ET "> "0 IRTOP", "SPOUT ", 
"LABELS", "JaR ", n C IDRQW, " INQPT ","INTRNC", 
"RslElNP","DCQPT ","DALOC », "SHEET ","STA*RP", 



"KEYIN "," 
« 3 3"," 
38"," 



WHILE 
flf-aiw 



FROM<TOO DO 



29","DCl9Q ">" 
34"," 35"," 
39"," 40", 



3l","STAfcQ "> 



36", 



37-. 



DENOTES UNRECOGNIZED LINK TYPE 



irstacki*false; 
dchitjsfalse; 

N » »( LtsM [FROM. ROW, FROM. CUL])»CF; 



01103000 
01104000 

on nsooo 



01106000 
01107100 
01107200- 



oiioeooo 

01109000 

oiiiooo o 



OIU2000 
01113000 
01114000 



01115000 
01116000 
01117000 



01118000 
01119000 
01120000 



01121000 
01122000 
0112210 0. 



01122200 
OU23000 
01124000, 



01125000 
01126000 
1127000 



0J128000 

01129000 
01 130000 



oiuiooo 

01132000 
01133000 



01134000 
01135000 
01136000 



0U37000 
0U38000 
01139000 



01140000 
01141000 
01141100 



01141200 
01141300 
01H1400 



01142000 
01143000 
01144000 



IF T»*Lf£3!0j GTR TYPMAX THEN 
MXN0T0i*CMXisL#C9*63> NEQ 01 
IF BODLtAMtL.rilin THEN 



L.C3l63»sT»*TYPMAX + UX BAD 



01145000 
01146000 
01149000 



BEGIN 



IF NODUMP THEN ELSE 



TYP01149100 
01149200 
0115QO0O- 



AVST7Ft« 



IF OP£RAND(FROM + i,X) AND X.tHl7J«0 THEN 

X.FF ELSE -10000; 

HRITE(gCDBL3,AVATLABLE,IF AVST^E LSS o THEm "«»»♦«" ELSE 



01150100 
01151000 
01152000 



0H53000 
01154000 
QU55000 



T* 



8 

9 
10 
11 
12 
13 
14 
15 
16 
17 i 
18 
19 
20 { 
21 
22 



25 

26 ( 

27 

28 

29 ( 

30 

31 

32 { 

33 

34 

35 ( 

36 

37 



40 



44 I 

45 

46 

47 ( 

48 

49 

50 { 

51 

52 

53 ' 

54 

55 

564 



1 

2 
3 
4 
5 
6 
7 
8 
J9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 



23 
24 
25 

« 
28 
29 

90 

31 

32 

33 

34 

35 

36 

37 "" 

38 



40 
41 
42 
♦3 



45 
46 
47 
48 
49 
SO 
51 
52 
53 
54 



55 
56 

51- 



OCTAL(AVSIZE)»AVSUE)> 

AVALNK J=TRUE/ 
PRINTCFRHMtlF IHlMPAVAlL OR 



JtllX 



NEEDGHECKAVAILNKS THEN N ELSE FR0M*3>> 
AVALNK IsFALSEJ 

END ; 

ELSE 
BEGIN 

=QPERANn(rRnM+i>Q?; 



011b6000 
01156400 

omeooo. 



0H59000 
01159100 
01160000. 



MCPSAVEl*QT AND C NEQ 
AND Q.CF GEO 129 
ncHlTt*(Drv-n»FRnMi 



AND L«C2*133*4096 AND Q.FF NEQ 
AND Q.CF LEG PRTMAX; 



01161000 

01162000 

.01163000 



IRSTACK:* CC0NT80LDtSclF'R0M + 2*RJ 
R,FF=ISTACKV+l3 OR 

(cSNTRnLnFsr.fFRnM + ;j>R) and 



ANu 



01164000 
01164100 
Q11642Q0 



R,FF»ISTACKV+1)J 
IF NODUMP THEN ELSE 
TF MXNOTO AMD T*g Hhn 



01164300 

01164400 

■ 01164500 



0PERAND(FR0M+2,X) AND X= ("BHBB M &"BBBB" [ 1 ! 25 5 23] 3 
((CONTRBLDESC(FROM+3,X3 AND X,Ff-*03 

JOB 



01164600 
01164900 
0ll650O£. 



AND 



01166000 
01167000 
01166JIQiL 



(QPERAND(FRQM+3*X) ANO X*0 AND CUnTROlDESC (i- RUM + 4* X ) AND X.FFsQ}) 01169000 
THEN WRITE(PCDBL3*USERSTACKPST*MX) ELSE Oll/OOOO 

IF (MXNOTO AND T*1 AND L.[2U3>1 AND 01171QQQ 



0PERAND(FRUM + 2»x) A i\ D X, 11:373*0 AND 
0PERAND(FRQM + 3*X) Al\ D X . L 1 1 2 ] LEQ 2 AND 
X n [liSJsQ AND X f CF Mpo QJ 



THEN WRITECPC0BLJ#SEG0iCTVMx) ELSE 

IF MXNOTO THEN KRITE(P[DBL 3 #MIXUSe>MX, ATPC T 3 3 ELSE 

TF MXO AND ffTs| AMD QT1 OR MCP.SAyFV Tt4Flu 



01172000 
01173000 
OH MOOD.. 



DISPLAYCQ.CF*FALSE) ELSE 
IF QT AND T = 7 AND INTR AND OPERAND ( ADR+ (U ' *Q . I 8 « 10 3 ) #R 3 
AND R»«R.CF>1023 AND LL LEG INTMAX THEN BEGIN 



01175000 
01176000 
01177Q00 



WRITE<LlNE[*],lTEM,OCTAL(LL>#aCTALCR>,OCTALCR*G.FF-l)); 
MOVE(lNAMStlNAMECLL3.CF3,LINEC43*lNAMECLL3.FF); 
WRITE(PCDBL3.7,LlNF[*n; END El SE 



01177100 
01178000 
1 1 7 9JLQJL 



IF (DCSTACK ANO OCHIT) OR 
L. [2113*1 AND(T=0 OR 
ISTACKQK AND 



01180000 
01181000 
0118 2000 



T = 123 AND MXO ANO 



IRSTACK 

THEN WRITE(PCDBL3*MCPSTACK) ELSE 
IF FRQMsTaBlESlQC THEN WRITE(PCDB L 3 ,TABlEAREA ) ELSE 



01183000 
01184000 

QU6SQQQ 



IF FROMsADR-2 THEN WR1 TE (PL UBL 3 > 1 NTARRa Y 3 
WRITE(P[DBL3»MCPUSE>ATP[T3 )i 
STK:=-i; BEDDEO:aFALSE; 



01186000 
01190000 
011910Q0 



ELSE 



WHILE BEDSTK GEQ STKt*STK+l AND Not BEDDED DO 
IF BEDDED t* 
(LL<»STAXcSTK3.CF GTR FROM AND N GTR LL) THEN 



01192000 
01193000 
01194000 



IF STAXtSTK3.FF=0 THEN STAX [ STK J • FF I sFRQM+2 i 
IF NOT BEDDED AND (IRSTACK OR 
. T«12 OR 



01195000 

01196000 
01197000 



(DCSTACK AND DCHIT3) THEN 

STAX[MAXSTKt*MAXSTK + U»a(N-l)&(FRQM + 2Hl8l33»l5J 

&1C6t47lli; 



01198000 

01199000 
Q12 Q0O O0 



NOTPRlNTCALL Ji »NOTPRINTCALL AND l\UT MCPSaVEj 
PRINT(FR0M>IF( ONEMlX NEQ AND ONEmIx NEQ MX AND MX NEQ 0) 
OR (NOMQRMALCODE AND ((T=7 OR T«13) OR 



0120200C 
01203000 
Q1204QQ0 



(T»l AND MX NEQ 033) 
OR (NOMCPCQDE AND (L.C3»123*64 OR MCPSAVE33 
i THEN FHPM+2 ELSE N37 



01208100 
01209000 

01210000 



01211000 
01212000 
0121 5 Q Q 



< 



i 

2 

3 
4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



• 



# • 



^r 



I 2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37"" 

38 

39 

40 

41 



42 

43* 

44 

45 

46 

47 

«8 

49 

50 

51 



52 
53 

54 
55 
56 



mcpsave8*false; 
end* 

FRnyt'N; 



JLNiJ. 



end; 

nqtprintcalu*false; 

dump memory and n(1te stacks) 



ARRAY MCPR0GC0:2553 J 
INTEGER MAXMCPRQGjESP; 
ARRAY nUTFRRLOflKtOlQlU 



PROCEDURE 
VAUUE 
ARRAY 



INTEGER LIM; 
BEGIN 

INTEGER J ,U 



SEOUCNCE(ARAY,LIM); 

LIMJ 

ARAYfQH 



REAL v; 

STREAM PROCEDURE MOvE( S#D,D32,M32 ) J 
VALUE n3P.M37; 



BEGIN 

SlJsS; dij=d; 
D12(PSjs.1? wnST? 



DSI»M32 
END MOVE* 
TlaLTM; 



wds; 



WHILE CT 9»T-1 )>0 DO 

BEGIN 

I i»lim; 



Ll»(Vl«AKAYETJ).CFJ 
WHILE ARAYCIJ.CF>L DO 
U* l*±l 



IF (U?I-T)>0 THEN 
BEGIN 

M QVE(ARMYrT»l],AHAYrT],L.r37:6],L.ra3l'iH; 



end; 



ARAYU3««v; 



end; 



end sequence; 

integer badsaveprtloc/ 

PROCEDURE, gETSQRTANPLl STMC P H Q S(fl)/ 



BEGIN 

real r; 

INTEGER 



value, r; boolean b; 



typ; 



FORMAT TOTALPROCS(///"### A TOTAL nF 

"WERE PRESENT IN MEMORY")* 
BADLQCC// "*** AT LEAS T 



",lH, " 



"CONTAIN PROGRAM OR DATA 

"AS THEY SHOULD. ••")» 

FCXfii^PRFSENT MCP PROCEDURES"// 



'fl3»" MCP PROCEDURES ". 
MCP PRT LOCATIONS DQ NOT 



01215100 
01216000 
Ql21ti00Q 



01219000 
01219100 

ni22»nnn 



01221000 
01222000 
01233000 



01224000 
01225000 
01226000 



01227000 
01226000 
01229000 



01230000 
01231000 

Qi23?nno 



01233000 
01234000 
0123^000 



01236000 
01237000 
0123HQQQ 



01239000 

01240000 

J3JL241 QQ Q_ 



01242000 
01243000 
01 2440 0Q 



01245000 
01246000 
01247000 



01248000 
01249000 
QI25Q000 



01251000 
01251500 
01^52000 



01253000 
01254000 
Q12S 500Q 



DESCRIPTORS FOR SAVE CODE ". 



01256000 

01257000 
01257100 



IF NOT 
BEGIN 



,, PRT%X5, M DESCRIPTQR•^X8>"ThRU , 
B THEN % S0RT/*D0NT* LIST 



/n 



01257U0 
01257120 
01258000 



IF DESCRIPT0R(ESPBIT#R»TYP) 
MCPR06CMAXMCPRQGl*0 3J» 
CF S P»» 1* .CF )& 



AND TYP* W 75 M THEN 



01259000 
01259500 
01259600 



< E$P+R , [ 8 1 1 ] - 1 ) C 1 8 ! 3 3 » 1 5 ] & 
ESPBITC8 : 38* 103 

ELSE MAXMCPRCftl*-^ 



01260000 
01261000 
01262000 



IF MAXMCPROG NEQ -1 THEN 
0UTERBL0CKC0]l«(PRTMAX+i}8i(ESP-l) CTFi 
FOR 11*129 STFP 1 UNTIL PRTMAX DO 



01263000 

01264000 

-01265000 



01265900 
01266000 
01 2670 00 



< 



23 



50 



52 



h 



10 

11 



13 



16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
28 
27 



29 

10 



31 
32 
33 
34 
35 
36 
37 " 



41 
42 
43 



47 
48 
49 

SO 



53 

54 



55 
56 



IF DESCRIPT0R(I>R>TYP) AND 
(TYP="75 W OR TYP="77» 0« TYP="74") 
R,CFi<FSP T H EN 



AND 



MCPRQGCMAXMCPROGtsMAXMCPROG+lJts 

R.CF& 
(R.CF»R,rflll03«lK16»33»15]& 



01268000 
01269000 
012/0000 



I [81 38 1 10 3; 

SEQUENCE(MCPRCG#MAXMCPHyG); 
END ELSE % LIST ONLY 



01271000 
01272000 
1 273000 



BEGIN 

nextpage; 

wRTTr<P.rw 



01274000 
012/5000 
012755QQ 



sgltog»sTrue; 

FOR 1 1-0 STEP 1 UNTIL MAXMCPHQg 
display fMEPRnr.rn.r km oi»true u 



01275600 
01276000 
01277000 



DO 



SGLTOGt«FALSEJ 
WRITE(P»TOTALPROCS#MAXMCPROGtl); 
IF BADSAVEPRTLOC NEQ THEN WRI TE( PjBAPLOCBADSAVEFRTLQC ?; 



01277100 
012/8000 
01279000 



end; 
end get sort and list 

DEFINE GETANDSORTMf.PRrfi* 



PRESENT MCF PKUGKAM SEGMENTS; 



GETSORTANDLISTMCPROGC FALSE)*; 
DEFINE LISTMCPR0G« 
GFTSDRTAMnt TSTwr.PP nfif TRUF )H 

procedure dumpmcpsavecode; 
% separates & identifies save 

B E GIN 



01279100 
01280000 
012803 00 
01280500 

oi2aiooo 

Q126UQQ 



01281410 
01261420 
01281430 



PROCEDURES & ARRAYS 



boolean ok; 

INTEGER T,SI2e; 
REAL THTSPROfil 



01281500 
01281510 
01281520 



integer i#j#lastadr'nextprag; 

ok:=sgltog*=true; 

lastadr;=esp? 



01281530 
01281535 
0128 1 5 38. 



FOR 11*0 STEP I WHILE OK AND I LEQ. 
IF OK?*(THISPROG*«MCPROG£I]).FF LSS 
RFGTN 



MAXMCPROG DO 
MINLNK THEN 



01281540 
01281550 
01281560 



DI SPLAY CTHISpRQG.Ca: 10 J,TRUE); 

PRINTCTHISPRCG«CF»LASTADR:sTHiSPhOUtFF+l) / 
IF 0KI»(NEXTPR0GI«MCPR0G[I-»1],CF) L.SS MINLNK 



01281570 
01281380 
01281590 



WHILE 
BEGIN 



NEXTPROG NEQ LASTAOR DO 
FOR J1»129 STFP-1 UNTIL PRTMA* nn 



TH£N 



01281600 
01281610 
1 281620 



IF PDATADESCCJ'T) THEN 

IF C SI ZE : «T, tailOj) NEQ THEN 

IF (T»*T.CF) a LASTADR THEN 



01261630 
01281640 
0i2ftl65n 



BEGIN 



01281660 
01281670 
0126 168 



DISPLAYCJ^TRUE); 
J»«lQ23; 



end; 



printct»minclastadr:*t+size»nextprog)); 

if lastadr gtr nextpnqg then next prog ; = lastadr; 



01281690 
01281700 
01281710 



IF J GTR 1023 THEN ELSE BEGIN % A PRT CELL HAS 
PRlNT(TJ»LASTAOR, L*STAOR 1 .NEXTPROG); 
■ BADSAVEPRTLOC i ■BADSAVEPRTLOC* 1 J END; 



01281715 
01281720 

01 281725 



end; 
end; 
_printclastadr, minlnk); 



BEEN 2APPED0i281727 

01281728 
01281729 



sgltqgi«fal8e; 
enp dumpmcpsavecode; 

array intsp[0.iinamesize»13j 



01281730 
01281735 
01281740 



01281745 
01281750 
01282000 



ri 



56 
57 



10 



integer intspmax; 

procedure getsortandlistinthinsics; 

BEGIN 



INTEGER IMAX*TYP; 
REAL ADR*R>L; 
REAL MIXJ 



01283000 
01284000 
01285(300 



FORMAT ITEM(X2»A3," s"> i. ( X4, AS ) ) * 
BADINTOC"*** BAD INTRNSC C 3 " ) » 
F(X8*"PRESENT INTRINSIC* 1 ?// 



01286000 
01287000 
Q1 2871 QQ 



"INDEX%X7# H FKQM M »X5> ,, THRU"/); 
lNTSPMAX»«*i; 
IF DESCRIPTOR*- TNTRNSC,APR,TYP) AND TYP*"5n" THFN 



01288000 
01268100 
Q 1 289Q 00 



BEGIN 

IMAX»*ADR,C8: 101-1 J 
ADR> a ADR>CF# 



01290000 
01291000 
0129S00Q 



01293000 
01294000 
Q 12 V5 Q QQ 



13 

14 



H5 

16 

17 

18 

19 

20 

21 

22 

23 

24 

*5 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 



IF OPERANO(AOR*R) ANO R.CH38]»0 

AND R NEQ AND R LEQ IMAX THEN IMAX«*R ELSE MjXIs-i; 

IF TMAX>f! THFM 



01295100 
01295200 
2JSL6J 



-01 



FOR Il*l STEP 1 UNTIL INAX DU 

IF OPERANO(ADR+I#R) AND R.CF>1023 ThtN 

INTSP[ INTSPMAX 1^ IN fSPMAX + n :« 



tOOQ 



IF 1*17 THEN R«CF&CR.CF+3) cTF & 118138*10] ELSE 
R,GF& 
C IF OFFRANfHR.CF»l»l.) AND . 



01297000 
01298000 

01299Q O Q 



-8^C£ 



i tei ast 103; 

eno; 

if intspmaxso then 



0<(LJ=L, FF) ANO 

L<1023 THEN 

*l~\ E L SE R , CF)[1 8 » 3311 5 34 



01299100 
01300000 
01301000 



01302000 
01303000 
01 3 4 000 



BEGIN 

nextpage; 

D lSpLAVUNTRN S CrTR UE ?; 



01305000 
01306000 
0-1307000 



IF MIX LSS THEN WR ITE (P [QBU * BAD INTO )i 

WRITE(PCDBL3#F)i 

SEQUENCFf INTSP* INT SPHA X) j 



01308000 

01309000 

,01,310000 



FOR 11*0 
BEGIN 
writ 



STEP 1 UNTIL IimTSPMAX DO 
ECLINFL*3MTEM>gCTAt, (Li* I NrSP[ i3,[fliiQ] ?^ 



01310100 
013U000 
0131?Q00 



01313000 
01314000 
01 3150Q0 



42 
43" 



46 
46 



49 
50 



52 
53 



55 
56 



IF 



OCTALClNTSPtU.CF)* 
OCTAL(INTSPCIJ.FF)); 
L<TNTMAX THEN 



EN D 



end; 
end; 

GET SORT 



movecinamsunamecli .CF]*LINEU]> 

INAMECLl.FF); 
H RIT E (PC DBL 3»7j l IN£C*3>; 



01316000 
01317000 
Q1318O0Q 



01319000 
01320000 
01^21000 



ANO LIST PRESENT InTRInSICSJ 



STREAM PROCEDURE ^QVC( S, SP >Q#DP» w» C ) t 

VALUE SP»DP#H,C> 
BE GIN 

SI!* Si 



01322000 
01323000 
01324Q00 



siiasi+sp; 
oi«*d; on*Di+oPJ 

W(DS|w8 CHR); DSfsC 



01325000 
01326000 
01327000 



CHR. 



END MOVCJ 

BOOLEAN PROCEDURE W I THIN ( ARA Y, AMAx, I TEM»RESULT'#PLUS ) ; 
VALUE AMAX»ITFMJ 



01328000 
01329000 
01330000 



ARRAY ARAYC03; 
INTEGER AMAXMT£M,RESULT*PLU5; 
BEGIN 



01331000 
01332000 
01333000 



01334000 
01335000 
01336000 



^r 



to 

I 11 

12 

13 
I 14 

15 

16 
I 17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

10 

31 ~ 

32 

33 



34 

35 

36 

37 ~ 

38 

39 

40 



41 
42 
43 



• 

* 



45 

46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
>6 



^ 



BOOLEAN FOUND; 

LABEL EXIT; 

IF AMAX>0 THEN 



FOR Il^O STEP 1 UNTIL AMAX 00 
IF FOUND** 

(ARAYrTl.CFSTTE* AND TT EM JAfiAXIXl^EfJ THFK. 



BEGIN 

RESuLTJsARAYLU.tf :ioi; 
Pi US^ITFM-ARAYfll.CF; 



go to exit; 
end; 

EXIT> WTTHTMlaFCllIMn; 



end within; 

ARRAY PRQGS[0:3>0t255j; INTEGER PRUWS; 
TNTFGER PRO CEnilRF SPRFAnC AT ,F, C ) i vai Uf at; 



integer at,f,c; 
real locircwj 

PROCEDURE nilMPSTAr,K(TMXU 



forward; 



VALUE INX; 
INTEGER INX; 
BEG I N 



INTEGER TOS#BOS#SeG#ADR*H.L»PrO#I; 

integer iy; 

rfal v,«r; 



REAL TOSORIG#X/Y; 

LABEL ERRQWT; 
LARFI nilMPJTf 



BOOLEAN WUUPS; 



LABEL SKIPEEE; 

LABEL S9UEEZE*CUTBACK*XIl; 

OFFINE COsWOQpS i; 



DEFINE DELTA550*; 

DEFINE MAXSTACKSIZE*512*;% MA X STACK BELOW 
P EFINF SPECsBT0LFAN(STAXCTNX3.[mi ),* i 
BOOLEAN NORMAL'FOUND; 



TOS WE"LL DUMP 



FORMAT HD(X8#"STACK FROM 
TRlTEMfA5." a » , At 



*AS#" 
»2(X1, 



DOWN 
A5)). 



TC VA5}> 



SCX8#"eED[", A3*"3 ■ M »A6*Xlf A5#X1*A5*"# 
A6/2(Xl*A5))» 

C(X8»3A6>Xl»A4,"r%I4*")"j" + ", 

A«#"(*#I4»««" II*")"); 



MaSK= ••, 



nextitem; 

WR1TE(P[DBL3>HD> 



IF (T0S;*STAXCINX].CF) LSS 127 THEN "*****♦♦ 
ELSE CCTAL(TOS)# 
IF (BQ S<3STAX[lNX3.FF) LSS 64 THEN "*****" 



IF 
IF 



ELSE OCTALCBOSn; 
IF BOS LSS 64 THEN 8031*0; 

if tos lss iay then Tost«p; 



TOS=0 THEN GO ERKQwT;4E.G, IN EARLY SELECTRlN 
SPEC THEN GO DUMPlT; 

NORMAL! sBOSLEAN(STAX[ INX 3. L7«l ]); 

IF INX*0 OR INX>BEDSTK THEN 



_L£_ 



BEGIN 
NORMAL 



THEN 



BEGIN 

WRITE(PCDBL]»TRITEM#0CTAL(TUS)#0CTAL(SPHEADCT0S#H#L))# 
OCTAL(H)»QCTAL(L))i 



TOSl»TOS-i; 

end; 

IF NOT NORMAL AND BQS«64 THEN 



01337000 
01338000 
01339000 



01340000 
01341000 
o^34?nnn 



01343000 
01344000 
0134500-0- 



01346000 
01347000 
ni3aflnnn 



01349000 
01350000 
.01351000. 



01352000 
01352500 
01353000 



01354000 
01355000 
01356Q0Q 



01357000 
01357100 
0135 8 000 - 



01359000 
01360000 



013O1000 
01362000 
0l3ftl000 



01364000 
01365000 

G1366000 

01367000 

-QJJ.68J10J1 



01369000 
01370000 
01371000 



01372000 
01373000 
01374000 



01375000 
01376000 
01377000 



0*378000 
01379000 
01380000 



01381000 
01381100 
01382000 



01383000 
01384000 
01385000 
01386000 
01387000 
013 88000 



01389000 
01390000 
01391000 



12 

13 



18 
19 



24 
26 
26 ' 
27 

2a 

29 ( 

30 



34 
35 I 
36 
37 
38 i 
39 



42 



44 ' 
45 



48 
49 



3 



13 



: 16 
17 
118 



21 



24 
25 
26 
27 



28 



31 
32 



34 
35 



36 

37 ' 



38 



46 

47 



50 



52 



55 
56 



FOR T0S:=127 STEP "1 UNTIL ACTUALPRTBASE DQ 
BEGIN 

WRTTEClINE:C»3»TRlTFM>nCTAl(T0S)>UCTAL(SP R E A m Tn &» H fLn * . 



END, 



OCTAL(H),OCTAL(LJ); 
MOVE(XNAMSCXNAMECTOS3.CF]/LlNEt53*XNAMt£TOS3,FF)i 
WRlTE(PtDBL3»S>LIKE[»] ); 



IF B00LEAN(STAXCHXJ.[6Z1]) 

TQSuRTG>*TO S; 



THEN BEGIN 



SQUEEZEJDO TOSl»TOS-l UNTIL (WQUPSJ»TQS LEO BOS) QR 

CQNTR0LDESC(T0S#X); 
IT WOQPS THFN RFfiTM TnS t STUS + 1 i fin XIT FMI11 



CUTBACKIIF (YmX.FF) GEQ BUS AND 
Y LEQ BCS +1 AND 

cn»acnNTRn.UFSccYfX? then 



BEGIN 



TCS«*MlN<TOSQRlG*iOS+OELTA>; 
GO XTTi 



END 
ELSE 
IF Y 



GTR bll.S ±1 AND Y IS S Tfl S 



_GQ_ 



AND CD 

GO cutback; 
-squeeze; 



then 



XIT I 

end; 



I F B0SsQ4 THFN 



IF OPERAND(I#VJ AND V NEQ Y THEN Il»112J 

IF Isjli THEN FOR TQS:=1H STEP -1 UNTIL 

HRITE<PCDRL3»TRlTEM,QCTALfTf;S), 



108 DO 



END. 



QCTALCRJsSPR£ADCTOS#H#L))* 
OCTAL(H^QCTALCL)); 



IF 



SKIPEEEt 

IF OPERAMjCTQS'V) THEN 
(CVs"£EEE f, & ,, EEEE ,, n »25:233) AND NUT NQRiMmL) QK 



01392000 
01393000 
01394000, 



01395000 
01396000 
01*97000 



01393000 
01399000 
01400000 



01*01000 
01402000 
01 40 3000 



01404000 
01405000 
(U4U6000 



01407000 
01408000 
01409000 



01410000 
01411Q00 



01413000 
01414000 
0141 50 00- 



01416000 
01417000 
01418500. 



IF 0PERAN0(107»V) AND ¥■< Y : ="EEEE M & ,, EtEE ,, £ 1 »25 «23 3 ) THEN 01418510 
BEGIN 01418520 
FOR IflOB STEP 1 UNTIL 111 nn 01418530 



01418540 
01418560 

01418570 



01418575 
01418580 
01418590 



((Va"CCCC"&"C[t[ M Cl*25*23]) AND 
NORMAL) THEN 

WHILE OPERANDfTOS-WR) AND Rsy 00 



01418600 
01419000 
Q1420Q00 



END 
ELSE 



tosi«tqs-i; 



01421000 
01422000 
01423O0Q 



BEGIN ■ ■ 
WRITE C PC DBU'St OCTAL (V*STA*CINX J » C8i 10 3 )# 
' OCTAHSPRFAOCV*-V*VHEB.CF»H>L))# 



01424000 
01435000 
Q14J6000 



OCTAL(H)#0-CTAUlL)# 
0CTAL(R«-SPREA0CV + 1#H*L))' 

OCTAU<HJ>C CTAL (U >)> 



01437000 
01438000 



if qctal(r,e30»63)* m 74" then 

if withincmcprog#haxmcprog»vi«v,cf#s£g»adr) 

BEGIN 



014A0000 
01441000 
01 44 2000 



THEN 



WRITE(LINEC*3,C*"C0MPLE ,, *"X SLEE"# H P AT n , 
OCTAL(SEG)*SEG*QCTAL(ADR)#ADR'R. t40;23 ); 
MQWE(NAMS[NAMFLSEG].CF3tLINf [7]. 



01443000 
01444000 
1 4450 00 



TK)n 



NAMEISEG3.FF); 
WRITE(PCDBL3#l5,LINEt*3); 



01446000 
01447000 
01448000 



01449000 
01450000 
01451000 



h 



19 
10 

! 11 

12 

13 

14 

15 

16 

17 

18 

- 
19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37| 



38 



39 

40 
41 
42 
43 



45 
46 
47 
48 



49 
50 
51 
52 
53 
54 



55 
56 



else write(p); 

end; 

IF BQS = n THEN 80S ! =M AXt n, TQS- f T F 



ELSE 128)) ELSE 
IF B0S>T0S THEN BOSJsMAXCGVTOS' 
IF TOS-BOS fiFC mayStaeksizf: 



NORMAL THEM M A X S r ACK S I ?F - 1 



■1). 



THEN BQSisT05-MAXSTACi\au£ + i; 
DUMPIT** 
IF MYSTACKAOR GTR AND M YS T ACK Si 2F*0 ThEtM 



IF NOT MYSTACKOUMPED THEN 
IF MYSTACKAOR LEQ TflS THEN 
IF MYSTACKABR GTR BF)S THEN 



MYSTACKDUMPEDSsTRlJE* 
FOR I:»TOS STEP "1 UNTIL 
BEGI N 



BOS DO 



WRITE<PC0BL3#TRITEM#QCTALU),QCTALCR*SPREAD(J 
8CTALCH)* 
. OCTALft n; 



•H#L))» 



_LL 



PROja-i; 

foundj»false; 

CONTRQL.OrSCCI,*) AND 



(X.CF GTR 0) ANn 



X,FF GTR 80S AND X.FF LS5 TQS AND I NEQ IY THEN 
BEGIN 
IF FCllNDls 



WITHlN(MCPROG,MAXMCPKUG,L.CF»SEG»ADR) 
TRUE THEN 
BEG I N 



AND 



WRIT£(LINEC*J*C*"MCP SE">"GMENT "^AT 
QCTAL(SEG)*SEG,0CTAL(ADR),ADR*R.[<»0J2]); 

MOVE(NAMSCNAHECSEG3.CF3»LINrr7 3» 



END 
El SF 



NAKfcCSEGl.FF); 



IF FQUND»sWITHIN(0UTER8LQCK#0>L,CF>SEG/aDR) THEN 
WRITE(LlNEC*]*e* H MCP QU W »"TER BL'»* M 0CK "» 

0»O»0CTALfL)»L»R.C4O»;>]3 ; 



ELSE 
BEGIN 



IF NORMAL THEN 
IF FOUNDtaWlTHIN(Ii\TSpMNTSpMAX»L.CF»SES»ADR) THEN 



BEGIN 

WRITECLINE[*3»C# M INTRIN»» M SIC Nu M *"MBER 
DCTAl CSEG),SEG, 0CTAL(AOR),A0R,R.C 40121 )i 



01452000 

014^3000 

JUASLAXUm.... 



END 



M0VECINAMSCINAMECSEGJ,CF3#LINE[73> 
INAMtlSEGJ.FF); 



ELSE 

WHILE CPR0J*PR0+1)SPR0WS AND NOT FQtjND DO 

IF F0UNQt»WlTHlNCPRQGSCPR0**3,pR0GStPRO»255 3, 



END 



END) 
ELSE 



L.CF»SEG*ADR) THEN 
WRlTE(LINEf*3>C» ,, SEGMEN ,t >"T NUMB%"ER "* 
C CTAL( SEG )/SEG»QC TALC ADR )» APR >R.CAQ:2 1); 



IF NOT FOUND AND NORMAL THEN 



IF OPERAND<I>X) AND X,[l$l]=l AM) X,C3«U»0 
THENXPOSSIBLE CQDE (OVERLAID) 
IF FPUNOIx( (Y:=X.FF) GTR RflS 



AN D 



Y LSS I ANO 
CSEGI«X#CF) NEQ AND 
SEG LSS 1023 ANO 



01454100 
01455000 
Ql 45 60011. 



01457000 

01437100 

-01 457 110 



01457120 

01457130 

.01 4 57140. 



01457150 
01458000 
01459000- 



01460000 
01461000 
014,6200.0, 



01463000 
01464000 
01465000. 



01465100 
01466000 
01467000 



01468000 
01469000 
0147000Q 



01471000 
01472000 
0147JLQOJL 



01474000 

014/5000 

JLULLhSlQSL 



01477000 

01478000 

JUAZ.9.00JL 



01480000 
01460100 
01481000 

01482000 
01483000 
01484000 



01485000 
01486000 
01087 QOO 



01488000 
01490000 
01491000 



01492000 
01493000 
01 *940 00 



01495000 
01495100 
0)496000 



01497000 

01498000 
01499Q00 



01500000 
01501000 
01502000 



# • 



CQNTflULDESC(Y»fl)) 



2 

3 

4 

5 

6 

7 

8 

i) 

10 

11 

12 

13 

14 

,15 

:16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

«8 

49 

50 

51 

52 

53 

54 

55 

56 

57 



THEN* 
BFGTN 



iy»*y; 

write(linec*1#c> m segmen 

nrTAl_(SE6)»SEG* 



503000 
,504000 
,504100. 



OCTAL tADR»R.fiF)»AURjX t C 101311 



L 






_Q_ 



504200 
,505000 
.5Q60Q0 



end; 
if found then 

■ HR I TFCPCDB L3i lJ» »L I i > i eC»3 )i 



o: 
o: 



506100 

507000 

1 5 800 



end; 

ERROWTI 

fMH niJMPTMfl A STAfKl 



.509000 
.510000 
,511000 



INTEGER PROCEDURE SPREAtjC A r , f, Q )i 

value at; 

INTESFP AT>F /C; 



,512000 
,513000 
.514000 



BEGIN 

SPREAD i«CHRS CMC AT «RQW, AT. C0L3* 0*3); 
Cls(F|gCHRS(MrAT.R0W»AT.CQLJ>3*5)).CF; 



,515000 
.516000 
.517000 



FlsF.FF; 

end spread; 
_p_&qc e dure d umprq g rams j 



BEGIN 

INTEGER Mlx.TYP*PRTH#PRTF^H^F,C/FPB,SD/AlT*s; 
T WTFfiFR LI ALPHA STARriANk; _ 



518000 
.519000 

.52QQ0Q.- 



INTEGER A; 

REAL JAROO; 

R E AL STARS, JARO'PR 



,521000 
,522000 
.5 23 000 . 



liLL 



.524000 

525000 

,526000- 



BOOLEAN PRTOK; 
FORMAT HD(A5#" * " 
HHXft, "PROGRAM!", 



»A6»2(X1#A5)# 



X2>A1>X1#*A6)* 
MIX *»,I2)i 



.526100 

.527000 

528000 



INTEGER PC0L»SI2.RQ*CL'RP; 
REAL SEGS,SGM; 

RE AL SEJLt A QRJ 



529000 

,530000 
,531000 



array LSTorem; 

FORMAT SEGH(X8*"PR 

. "SEGMF 



ESENT PROGRAM 
NT SIZE Aj 



Segments"// 

THKU"//), 



.532000 
,533000 
,534000 



BADSIZEC8C"*")." 1 
BADSDEScC8C"*")>" 

SF GHENT(X3^2CA 



NVALiD SEGMENT DICTIONARY SIZE "»8("*"))» 

BAD SEGMLWT D! 

4,XUj2(X1'A5, 



iICTlONARY DESCRIPTOR 



1 » 8 ("*")} # 



,535000 
,536000 
,537000 



PD(A5»" « 
STARS,*"****"; STA 
IF OFSCRIPTORCJAR, 



, %A6*Xl#2CA5#Xt)'"* RV'#A4** , > + W *A4); 

RS,C6it83ia>Sti 

JAROfTYP) AND 



'ARS.C24H8J; 



,538000 

539000 

,540000 



jaro»sjaro,cf; 

IF CPRTOKjsPDATADE 
PRTHt?SPR£AO(PRT»P 



SC(PRT*PBTO)) 
RTFtPRTO?/ 



THEN 



,541000 
,542000 
,54 3000 



IF PRTOO THEN 
FOR M1XI*1 STEP 1 
IF ONF M TXan flB 



Oil£ 



UNTIL MJXMAX DO 
M WMf X Tt iEN 



,544000 
,545000 
.S^ftlOO 



IF 0ESCRIPT0R(PRT0+MIX>R,TYP) AND TYP«s»50" THEN 
BEGIN 

ne x tpa g f; 



,546000 
,550000 
J551000 



WRITECLINEt*]* 
IF 

IF JARQgQ 



HI, mix); 

THEN FALSE 



,552000 
,553000 

.554Q QQ 



ELSE 

DESCRIPTOR 

AND (JARO O 



( JARO+MIX»JAR 
».]ARQO f CF) AT 



00,TYP) 
H_Q 



AND TYPs M 50" 
THEN 



,555000 
,556000 
,557000 



BEGIN 

MOVCCMCCAI 
LINE! 



■ JAR00).«Q*»#A.CQL1*1# 



,558000 
,559000 
. 5600 00 



h 



7 
8 
9 
10 
11 
12 
13 
14 



15 
16 
17 
18 
19 
20 



21 

22 
I 23 

24 

25 
i 26 

1? 
28 
29 

30 

31 

32 

33 

34 

36 

36 

37 " 

38 

39 

40 



41 
42 
43* 



45 
46 
47 
48 
49 
SO 



51 
52 
53 

54 
55 
56 



EN H 



M0VC(MCCA:*A+1 ), SOW* A. COL]* \, 
L I NEC 3 )/l*0*7 )>' 



ELSE 
BEGIN 

MOVC f STARS* l,LINEt 2 J> 1/0/7 U 



MOVC(STARS*l*LlNLtJJ' 1*0/7)* 

end; 

WRITE(P[QBL3/15/LINEC*])* 



nextitim; 
writecp/ho/ 

QCTALfPRT)/ 



OC TAL( PRTH )* OCTAL CPHTF)*OC TALC PR TO)*' 
2/"PRT C */"/"*] "/ 

QCTALfPRT Q+H lX ?/ 



OCTAL ( SPREAD (PRT0+M1X/F/R)) /OCTAL CF )/ OCTAL (R)/ 

IF F«0 THEN " " ELSE "*"/ 

3j"PRTtHI"/"X/*]/ "/"CF«H ", 



OCTALCR+3)/ 

OCTALCHI = sPREaO(R + 3/F**FPB) ), QC TALCF )/ OCTAL C FPB ) , 

IF QCTALCH.C3Q.6-) ) = "5Q" THEN " " EL5E "*"/ 



2*"R+3/ F"/"PB 

QCTALCR+4)/ 

QCTAi fHiaspREAnrH+4jF.sr-m.nrTAi.fFi.nETAi r<;m. 



IF OCTALCH.t3086])s"bO" THEN " " ELSE "*", 
4,"R+4/ S"*"EGMENT"/" D ICT I " / "ON AR Y "/ 
QCTAlfR.+ fiJt 



0CTAL(H»*SPREADC8+6/F,AlT)),QCTALCF)*0CTAL(AlT), 
IF B00LEAN(H,[3O»lJ> THEN " " ELSE "*"* 

2* w B*6« *»t»iT ?-*- : : '. 



0CTAL(R+7)/ 

OCT AL( H » «SPRE A0( R+7/F/ C ))/ OCT AL(F)/ OCTAL CC)/ 

IF H,MQ.a]»3 AND F<K AND C*0 ThtN _ . ELSE 



7/«R+7/ L"*"AST MS"/"CW FOR"/" *HJCH H /" MSFF "j 

"WAS FA"/"LSE "/ 
Q C TAL (R+ 8 ) f 



0CTAL(H.=sPREAD(R+8/f ,C)) /OCTAL CF ),QCTAL(C)/ 

»• H f 

2,"R+jQ/ "/" I NCW "* 



OCTALCR+9)/ 

0CTAL(HiaSPREA0(rt+9/F,C))/0CTALCF)/0CTALCC)* 
IF HsQ AND F*0 THEN " " ELSE "*"/ 



9*"R + H* ••/"LITERA M *"L FOR "/"LAST C"/"QMMUNI"* 



"CATE OR"* 
OCTALfRMO)/ 



PRUGR"#"AM REL"*"EASE 



0CTAL(HI«SPREAD(R4-10/S/C))/0CTALCS)/0CTALCC)/ 
IF 0CTAL(H.C30»6])»"50" AND 0<S AND S<R AND R*C 



then 






5/"R+i2/ M /"FF s 8"»"0TTQM "/"OF THE"/" STACK")/ 
IF C0nTR0l0EScCR + 8/H) AftO ( LOCI RCW I sH . CF ) GTR 1024 
AND H.FF fiTR ^024 THEN ELSE LOCIRC*l«- 1, 



NEXTITEHI 

PROGSCPB0wS*«0»2553l"PC0Lia-U 

IF DESCRIPT0R(R-f4/SD/TYPJ ANO TYP«"S0 1 



THEN 



IF 0PERANC(5D:*SD.CF/SEGS) AND SEGS. L 1 :3 7 J«0 THEN 
BEGIN 

HRITE(P/SCGH); 



FOR SEGlat STEP 1 UNTIL SEGS 
IF QPERANOCSO+SEG/SGM) ANO 
(ADRI«SGM,FF)>1Q23 THEN 



00 



01561000 
01562000 

01563000 



01564000 
01565000 
0156 6000 



01567000 

01568000 

j3_____lOJ_ 



01570000 

01571000 

-Q1572QQJL 



01573000 
01574000 
0,1575000 



01576000 

01577000 

JLtSZftflflja.. 



01579000 
01580000 
01581000 



01582000 
01583000 
01584000 



01585000 
01586000 
01587000 



01588000 

01589000 
015900 Q 



015V1000 
01592000 
01593QQQ 



01594000 
01595000 
01596000 



01597000 

01598000 
Q1599Q QJ_ 



01600000 
01601000 
Q16Q2 QQQ 



01603000 
01604000 
01605000 



01606000 
01607000 
01608000 



01609000 
01609100 

Q1609P00 



01610000 
01611000 
01612000 



01613000 
01614000 
01615000 



01616000 
01617000 
01616000 



2< 
3 
4 
5 I 



^ • 



9 
10 
11 
12 
13 
14 

P5 

16 

17 

18 

19~ 

20 

21 

22 



23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

•2 

43 



45 
46 

47 
48 



49 
50 
51 
B2 
53 
54 
55 
56 



J_F_ 



BEGIN 

Siz: = 



AND 



SlZ.CF = SEli> 
(0PERAN0(A0R-1»SI2) AND 
QPERANOfADR-iJ.H) AND 



OR 



H. [3*63=7 AND 
SIZ.C8JIOJ5SGM.CF) 
SlZ.FF else 



01619000 

016*0000 

Ql621flflfl. 

01623000 

01624000 

01,625000. 



THEN 



BEGIN 



IF 800LEANCSGM.C2IU) THEN 
I »aSGM. r.Ft 



01626000 

01627000 
0l62fl000 



STARtJLANK»3 ,, * M ; 

FOR I J =0 STEP 1 UNTIL INTSPMAX 

IF lNTSP[I3.[8tlt)3*L THFN 



01629000 
01630000 
016 3 1000 



uu 



BEGIN 



01632000 

01633000 

-01634000 



IF L*l7 
S TAflRl AMK»s« 



THEN 
JU 



SXZ9*4i 



Il=lNTSpMAX+2; 



01635000 
01635100 
01636000 



end; 



HR T T £ C 1 I NF C » 1 f SEGMF N T j fir. T A|. f SEG ) . MC MH SI 7. ) p 



IF L 



QCTAL(ADR)MF 512 = THEN STARS ELSE 
0CTAL(ADR + SU-1)#0CTAL(L>>STARBLANK>; 



01637000 

01638000 

-04^3-9000 



-E-N-O- 



MQvEClNAMSClNAMEtL].CF], u lNEC*3#INAMEtL3tFF); 
WRITECP*7#LINEC*J 3; 



01640000 

01641000 
0164?00-0. 



ELSE 
BEGIN 
LF_ 



01643000 
01644000 
01 64 5000 



fPCOl »gPCUl +1 U? r ^ THEN 



BEGIN 

PROGS[PHUWS, 2553**254; 
PRQrt$:sPHn^S+1 ; 



01646000 
01647000 
01648000 



PCQL*«0> 

end; 
pRnr.SrPwnws»Prni 



01649000 
01650000 
01651000 



3 ts 



AOR& 

(IF SlZsO THEN 

SEGC8:3aiioj; 



01652000 
01653000 
01654000 



ELSE ADR + SlZ-lHie»33»l53& 



end; 
end; 

IF (PROGS fPROWS» 259 J»»PCOL)aO 



01655000 
01656000 
016570Q0 



THEN 



BEGIN 

FOR R0«*0 STEP 1 UNTIL PROWS 00 
SEQUENCE (PRQGS[KUj«]»PNnGSCrtU,2'S5l); 



01658000 
01659000 
01660000 



segsi«p80ws+i; 
for u»0 step 1 

BEGIN 



01601000 
01662000 
01663000 



UNTIL PROWS DO 



end; 



SEGSJ=SEGS+PRQGSt 1,255 j ; 
LST0tI3»=0; 



01664000 
01665000 
01666000 



FOR SEG»«t STEP 1 UNTR SEGS DO 
BEGIN 

HJOJuPjT. ■ 



01667000 
01668000 
01669Q0Q 



IF PRQWS>0 THEN 

FOR I*s»l STEP 1 UNTIL 

IF LSTD^«03«255 UR 



01670000 
01671000 
01672000 



PRUWS 00 



01673000 
01674000 
Q16750QJL 



(LSTDtn<255 AND 01676000 

PROGSCI»LSTDtI3 3.CF<PRUGSCRO#LSTDCR03 3 t CF) 01677000 

. THEN 01678Q QQ 



T< 



_P 



>r 



15 
16 
17 
18 
19 
20 
21 



22 
23 



25 

26 

27 

28 

29 

30 
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32 

33 

34 

35 

38 

37 " 

38 

39 



42 
43 
44 
45 
46 
47 
48 
49 
50 



52 
53 

54 
55 
56 

5- 



R0:=i; 01679000 

WRITECP»SEGmENT> 01680000 

UCTALf (SGHtsPRnfiMrtnjLSTnrHQ]]),, rftiion.niftBinnn 

IF SGM.FFsO THEN STARS ELSE 01682000 

0CTAUSGM.FF*SGM,CF + 1)» 01683000 

OCTAkCSSM.CFl. IF SGM.FFaQ THFM OlbfUOOO 



STAHi ELSE QCTAL(SGM,FFJ); 
L3TDtRU]i=LSrDCHU]+i; 



EM Pi 



END 



end; 

ELSE WRlT£(FCnBL3»BADSIZE3 ElSE WRI TEC P[QBL3*BADSDESC U 



01684100 
01685000 
0166600Q. 



IF (AIT5=MIXSTK[MIX3) 
STAXC03J* 

(R- i n 



THEN 



01687000 
01688000 
Q 1 68 9C1___ 



(S-1H18I33I15H 
1C7I47I11 ELSE 
BEGI N 



01690000 
01691000 
1 6 92 00 



IF STAXUlTl.FFs.O 

MIXSTKCMIX3*»C; 

_E_DJ 



THEN STAxUIT],FF:=S-1 



01693000 
01694000 
01694100 



dumpstackcait); 
if onemix neq and qnemix*mlx 
end; 



01695000 
01695100 

-04A9i24XO- 



then mixj*mixmax+i; % XIT 



IF PRTQK THEN 

FOR MI X J = l STEP 1 UNTIL MIXMAX DO 
■ TFC A l TlsM lXS TK E MlxU N E Q fH£N -ST AX [ A I T J . C 7 » 11 » = i 



01696000 
01697000 

Q1698000 



01698100 
01698200 
01698300 



COMMENT THE ABOVE WILL CAUSE ANY STACKS ASLEEP* ASSOCIATED wlT* 01698400 
A MIX INDEX* BUT NOT DUMPED IN THIS PRQCEDURE'TQ BE DUMPED 01698500 
L ATER AS CflNTRni ST-TF STATES. > 0«.698ft0f) 



END DUMPING NORMAL STATE PROGRAM INFO; 

PROCEDURE dumpcontrolstacks; 

BEGIN _ 

FORMAT HCX8» M C0NTR0L STATE STACKS"); 

real v*r#a; 

INTEGER INX>T; 

nextpage; 

WRITECPtDBL3*H)> 
STAXr0]«a.27*64MBt33«l5l» 



01699000 
01700000 
Q17Q 1QC_L 



01702000 
01703000 
01 704000 



DUMPSTACKC©); 
NEXTPAGE J 



01705000 
01706000 



IF DESCRIPTQR(ISTACK*A#R) AND R = *'50" THEN 
IF CVl=AtC8» 1C3)>0 AND CAJ=A»CF)>0 THEN 

i:«A+v-l; 



01708000 
01709000 
01710000 



IF B.DSTK GTR THEN 
FOR INXJsl STEP 1 UNTIL BEDSTK UO 
IF BOQLEAN(STAXClNX3»[7al]3 THEN 



01711000 
01712000 
01713000 



ELSE 



BEGIN 



01714000 
01715000 
01716Q0Q 



r»=staxunx3.cf; 
if r gtr a and r 



LEQ I THEN 



BEGIN X ISTACK ASLEEP 
STAXtINX3.FF«»A; 
NEXTITEMJ 



01717000 
01718000 
01719Q0Q 



END 



DISPLAY(ISTACK*TRUE); 
If=0;X SO DONT DUMP ISTAC* 
SPECIAL ISTACK STUFF; 



01720000 
01721000 
01722000 



TWICE 



DUMPSTACK(INX)i 

nextpage; 

end of dumping beooed 



01723000 
01724000 
01725Q0Q 



CONTROL STATE STACKS ; 



01726000 
01727000 
01728000 



li 



,17 
18 
19 
20 
21 
22 
23 
24 
25 



27 
28 



30 



32 
33 



34 

35 



36 

37 " 
38 






44 

45 

47 
48 
49 
50 



52 
53 



55 
56 



IF I GTR THEN 3! ISTACrt AWAKE 
BEGIN 
5TAXfQl4 l = T&Arlfln3M c >]? 



nextitem; 

OISPLAYCISTACK#TRUE); 
DUMPSTACKffln; 



01729000 
01/30000 
01731000- 



_LF_ 



nextpage; 

end; 

MAXSTK GTR BFn.ST* 



01732000 
01733000 
01/34000. 



FOR INXI«BEDSTK + 1 
BEGIN 
DI,)MPSTAr,K( TN X); 



THFN XMURL C . i» . STACKS TH nP 



STEP 1 UNTIL MAXSTK 00 



01735000 
01736000 
01737000 



if inx lss maxstk then nextpage; 
end; 

IF NOT MYSTArKDllMPFP. THriM 



01738000 
01739000 

oi/anooo 



IF MYSTACKADR GTR THEN 

BEGIN X SPECIAL OUMP OF USER SELECTEO "STACK" 
STAXCQ3 t«MYSTACKAnR & MAX ( . M YSTAfl K &DR* \ - 



01741000 
01742000 
Ol/«2lQO 



AREA 



CIF M¥STAtKSIZE 
-QJJMPSTACK(n)? 



neq then mystacksize else 200).) ctf & 



01 748 HO 

01742120 
Q17421B0 



MYSTACKOUMPEDJaTRUEi 
ENOi 
FNO DUMPIMG CnaTRHI STATF 



01742H0 
01742150 

- 1 7 4 2 1 643- 



STACKS; 



define maxmessages=ioo#; 

stream procedure movd(s#d/w)> 
vaiuf w; 



01742165 
01742170 
01743000 



BEGIN 

LABEL EXIT; 
STt»Si QlisD; 



01747000 

01750000 
017 S 100Q 



W(8(IF SCs"*-" THEN JUMP UuT 2 

sn=si-i; di:=di-i; 

FXTT» HSlgPHRj 



to exit; dsjsuhr)}; 



01752000 
01753000 
01754000 



end movd; 

PROCEDURE 



01755000 
01756000 
01757000 



PRINTQUEUECPRQCCODE); 
INTFGFR PRtlCCODEJ 



value prqccqde; 



BEGIN 

BOOLEAN B.: 
INTEGER c; 



real a*r#s,t*j#usercqde; 
format q1ca5» m * "#2cq*x 1 )» i2»*/% 12* x89 )/ 

Q2(A5^ j w »2<0jxj)>i2* w / , si2»xi» w us£R«»»ai,a6»x76) 



01757100 
01757300 

0_lZ5JL3-L0 
01757320 
01757330 
01/57332 



»a3(A5»x3#2(2(0»Xl>»X.l)»X2*X72> 



- NFXTITF M 



Cl*C0DE.FFI 
CODElaO & CODE 
IF CODg»l T.HFM 



01757335 
01757340 
01757350 
01757352 
01757355 
01757400 



ctc; 



BEGIN 

OlSPLAY(MlXMASK,FALSL); 
OISPLAYCINFOMASKI.FALSFIJ 



01757A10 
01757415 
01757420 



01 SPLAY CINF0MASK2* FALSE); 

OlSPLAYCCCMASKl^FALSEj; 

0ISPLAY(CCMASK2*FALSE); 

end; 
display(prcc^false); 

H«O J . 



01757425 
01757434 
01757436 



01757440 
01757450 
017 574 55 



THEN 



IF OPERANOCPROCA) AND A*[9l9]=511 AND (R»sA,CF) NEtt PRQC 



01757460 
01/57470 
01/57500 



nn »Fr.TM 



01757505 
01757510 
01 75 7520 



l< 



15 



23 I 



27 
28 
29 ( 
30 



34 
35 { 
36 
37 
38 ( 



47 
48 



52 
53 I 



>r 



10 

11 

12 
13 
14 
15 
16 
17 



18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 



29 
30 



31 
32 
33 
34 
35 
36 



37 
38 
39 



41 
42 
43 
44 
45 
<6 
47 
48 



49 
50 
51 
52 



i 53 
54 

55 

i. 



IF NCT UPERANDCR>A) 

CASE CODE OF 

RFfifN 



THEN I J=MAXM£.S3AGES+1 ELSE 



BEGIN % OCE.G. STAT IQNMESSAGEHQLOER ) 
WRITE(LINEC*3#Q1# OCTAL C R )* OCT ALChIHALF( R) )# 
OC TAL (LQHALFfR)).A.rQlflJ.a t riaifllw 



MOVOCMt(R+l +C).R0W»(R + 1 +C ) . C UL J > 1 1 NE [ 4 1 * 

MINCU»MAXCQR-11)>; 
HRTTEfP»15,L!NFL*3 U 



end; % 

BEGIN % KLQOKQ) 
BI»nPFRAWDfR*HJSERt:nDP II 



WRlTE(LINEr*]^Q2»UCTAL(R)#0CTALCHIHALF(R))» 
aCTAL(LQHAtF(R).),A.C9»«J#A t Cl<»*43,. 
TF R THFM USE ;wr.QnF , f 6 I 6 J J4 t SF " " f 



IF B THEN U5ERCQ0E.Cl2;363 ELSE " 
WRlTECP»l5#LINEt*3 >; 

PH!«Tn»»a'rAi ftt.wtt«ovi 



'>; 



ENQJ X 1 

BEGIN % 2(EtGt DC19Q) 

WHTTL(LlNEC»3»&l>Q CTAL(Ri,0r.TAL(hlHALrfR,^ 



0CTALCU0HALFCR))#A,[9l«J*A.tU>4]}; 
WRITECPM5*LINC£*3)J 
PJLLMli^±l_j±_li 



IF 0HERAND(R+1#S) AMD(S:«5,CF) N£Q R + l THEN 
DO BEGIN 
HRlTE(LINF[»J> Q^nCTAl (S).nrUi (HTHAt Ftsn. 



4X- 



aCTAL(LOHALF<S))^CCTAL(HIHALF(S+i))# 
0CTALCL0HALF(S+1)))J 
nPFRANn CS*1»T, AND T.CF MFQ S+j T h E m 



MaVD(Mt(S+2),R0tt#(S+2).CULJ#LINEC6J, 

MlNC9#HAXC0ft-9)); 
WRITE(P>lS*UlNE[*]?f 



END UNTIL NOT QPERANOCS,!) OR 
CS»»T,CF)*R+1 OR 
CJ«"J + 1) fiTR MAXHFSSAftESI 



END 



END PRlNTQUEUEi 
PROC EDURE OUMPMCPINFQJ 



END' X 2 

END case; 

until h = i + i gtr maxmessages 

CR:sA.CF)*PROC OR ( A , C 9 I 43*0 ) ; 



v?»o; 



OR 



BEGIN 

REAL R>A»N#L»TA>TS*MA,MS>LA,LS*RA,Rjj,PA.,Ps; 
INTEGER TYPfS^c; 



BOOLEAN TINUOK; 

BOOLEAN COMSAvEi 

FORMAT SECA3," s 
NULLMESSAGESC"### no 

NULI_SLATE("### NO INDEPENDEnT-HUNNERS TQ BE INITIATED")* 
— — NOMFMXIC «"TnGI F.[15l6T*.X 9.w = "»A?.», frtlMrM",. 



»*2cojX1)*x24,"(",q,xi,o,")»k 

SPO MESSAGES QOEUEU")* 



TFXI(X8»"BIT M2»" * %I1>% %X28)# 
TF(X8,"BIT NI2I" » %I1»"» ",*A6/)j 



BOOLEAN STREAM PRnCFDURF RITQNCWjBW 

value b; 

BEGIN 

st?~w? skip r an; 



end ; 



IF SB THEN TALLYI*i; 

biton»»tally; 



01757530 
01757550 

-cai.a756o 



01757570 

01757580 

-Q-tZ_Z59-Q- 



01757600 

01757610 

-0jL.7JJ-7-6.20- 



01757630 
01757700 
01 7<~>7?\c\ 



01757720 

01757730 

■01757740 



01757750 
01757760 
01757770 



01757780 
01757800 
01757810 



01757820 
01757830 
Q17 578 4Q_ 



01757845 
01757850 
0175785.5- 



01757860 
01757865 
01757870 



01757875 
01757880 
01 75788 5 



01757890 

01757895 

01 757 8 97 ... 

01757900 

01757920 

01757950 



01757960 
01757980 
01758000 



01758100 
01758200 
01758300 



01758400 

01758500 
01759Q0Q 



01760000 
01761000 
01762000 



01763000 

01764000 
oi765non 



01706000 

01767000 

1 /68 000-- 

01769000 

01770000 

01771000 



9 
10 
11 
12 
13 
14 
15 
16 
17 ' 
18 
19 
20 I 
21 
22 
23 * 
24 
26 
26 ( 

27 

— r 

28 

29 ( 

30 

31 

32 4 

33 

34 

35 < 

36 

37 

38 ( 

39 

40 

4,1 

42 

43 

44 * 

45 

46 

48 
49 

50 f 
51 
52 

53 1 
54 
55 
56 1 



w 



ARRAY TB[0:i43]; 

REAL UA*US* IA> Ib*F'A#PS; 
FORMAT LUNfAaw 



LQUEHDR("EL ,, 'X2'"I0QUE-IN0EX"> X 2* "0 1 SK- ADDRESS" )* 
BADLQUENTRY(A2," * BAD ENTRY IS "*2(0>X1))> 
BADLQUE( W «I THE LQE IS INCORRECT"). 



01772000 
01773000 
1 7 7 A0iQfl_ 



01774100 
01774H0 
01774120 



4 
5 
6 
I 
8 
9 
10 
11 
12 
13 
14 
(15 

;i6 

!» 

lis 

19 
20 
21 
22 
23 
24 
25 



26 
27 



26 
29 



30 
31 
32 
33 
34 
35 
36 
3?" 



38 

39 



41 
42 
43 
44 
45 
46 
47 
48 



49 
50 



52 
53 
54 

55 



*L_ 



FLQUE(A2#X6»A3,xa*Al>A6)# 
NULLQU£C"iM# NU ErfTHltS 1* THE LQUE")' 
FT( A l*Xl> A ?fXl> Al »Xl^A3iK l > A ?iXli A liX l / A ?tKl> A3 J> 



RT(A3,Xt*A2*Xlj-A4,Xl*A6*Xl#A3)# 
PT(A1#X1*A1#X1#A5»X1#A5#X1*A6)# 

I0ATH(x8,"FIElDS OF WORDS IN THL 



01774130 
01774140 
Z_7JM 



-04 



> 00 



X8*"TINU"/ 

XI 2," [C»3JV 

Xl2» w l I3I53 HARDWARE UNIT NUMBER"/ 



I /O ASSIGNMENT TABLES?"// 



01776000 
01777000 
017 78000 



X12," [8131"/ 
X12# M 2 C11J7] POWER 
X12." r tft : 63"/ 



OF 2"/ 



X12*" 

XI 2," 

_ X1 2 ,"4 



C24J13 IN=0# QUT=1"/ 

[2585]"/ 

[30*1 81 UNIT MN EMO N I C"// 



X8* M RDCTABLE"/ 
Xl2," [C183'V 
X12> W 1 [8*63 



MIX INDEX IF ASSIGNED"/ 



Xl2#"2 [14*10] REEL NUMBER"/ 
Xl2,"3 [24*173 CREATION DATE"/ 
Xl 2'"4 ULl i n CYCLE"// 



X8»"PRNTABLE"/ 
X12," tCJU'V 
Xl2* " l LUJJ IF WRITE RING PRFSFNT"/ 



X12#" [2*133"/ 

Xl2,"2 C 15 : 15 3 ADDRESS CJF TOP I/O DLSCKIPTUK"/ 

X12;"3 C 30 8 1ft 1 PHYSICA L *FF L NuMHF*"// 



W LUN",X6» 
"TINU"*X2«* 
"MULTTTARI F«.tt/t. 



"LABELTABLE'SX4, 
"RDCTABLE">X24> 
"PRNTABLF"/ 



X9# 

X2*"l M *X4» w 2%X6* M 3 w #X4# n 4">X8* 

X14.X14, 



X4>"1">X2,"2",X4#".3"»X6>"4">X8,. 

X2*"r'»X7,"2",X5f"3"»X5J^ 

BOOLEAN PROCEDURE VARTFYS WHAT* A iS»B )J 



VALUE iHAT*B; 
INTEGER WHAT* 
REAL A»Sf 



BOOLEAN B; 
BEGIN 
DISPLAYCWHAT»B); 



VARIFYJ* 

DESCRlPTQR(«HAT*A,Sj 
S«W^nw AMp 



AND 



CS1*A.[881Q])>0 
CAI»A.CF)>0 AND 
(A*S-l)<MAXCnRf 



AND 



01779000 
01780000 

oi7aionn 



01782000 
01/83000 
01784000 



01785000 

01786000 

,01787000. 



01788000 
01789000 
01790000, 



01791000 
01792000 

Q1793 0QQ- 



01794000 
01795000 
01 7960 00 



01797000 

01798000 

.01/99000 



01800000 
01801000 
0180 20 00 



01803000 
01804000 
018U5000 



01806000 
01807000 
oiaoannn 



01809000 
01810000 
01 6 U 000 



01812000 
01813000 
01614000 



01814500 
01815000 
Q1916QQQ 



01817000 
01818000 
01619QOQ. 



END varify; 

DEFINE VERIFY (VERIFYl*VERIFY2»VERIFY3)s 
VARIFY t VERIFY 1* VER IFY2, VERIFY3, FALSE)* i 



01820000 
01821000 
01822000 



01823000 
01823100 
1 623 30 



h 






9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



23 



24 
25 



26 
27 
28 



o 
Q 



29 
30 
31 
32 
33 



34 

35 
36 
37 ~ 
38 
39 



40 
41 
42 
43 



45 






46 
47 
48 
49 
50 
51 
52 



53 
54 



55 
56 



FORMAT IOQSHC'FIELDS 
X8>"UNIT M / 
X1 2 *" 1011,1"/ 



OF wOKgb IN Tht I/O-eUEUE TABLES"// 



X12#"1 
X12*"2 
Xl2,"3 



CD4] UNIT TYPE"/ 
C5J83 ERROR FIELD"/ 
C13»13 UNIT NOT REAPYV 



X12#"4 tH ! 13 ERROR FLAG"/ 

Xl2*"5 [15:i] WAITING FUR AN I/O CHANNEL"/ 

Xl2»"6 C16t2] I/O IN PKUCESS"/ 



Xl2,"7 L18U5] INDEX OF 
Xl2»"8 [33115] INDEX OF 
Xfi*"LOCATflUF"/ 



FIRST I/O REttUEST"/ 
LAST I/O REBUESTV/ 



X12," 

X12*"1 

Xl2f", 



Xl2#*2 
Xt2,«3 
Xl?t w 4 



CO : 33 

[3:5] 



= 5# DESCRIPTOR 
MIX INDEX"/ 



BITS"/ 



"LUN/ TINU ", 

"UNlT"»X3l* 
w T0QUF«*yiO* 



£12»6] LOGICAL UNIT NUMBER"/ 

C lfi* 153 INDEX OF NEXT I/O REflUEST"/ 

raansi annSFSs n F t/o he script^*/; 



"L0CATQUE"*X21# 

"FINALQUE M #XH/ 
"INpFy*.*?. 



X2'"r , 'X2,"2'%X3»"3">Xl>"4' , 1 



XI, "5" 



Xl*"6"*Xl,"7%X5»"8"*Xll*X24# 



X 2 * " 1" » X 5 . " 2 " » X 2 > " V * X 5 r " 4 " / / 



)' 



IF0(A5*X2,A3)» 
_ UFflf Al tXi.A2»yi . A3».flfx-i»A i-->..aryf, aSv). 



WFO(0#X1#03* 
LF0(Al»3CXl»A2)#2(Xl#A5n; 
NFXTPACiE? 



COMSAVEi'COMMONi 
C0MMON«*BO0LEAN-C64)J * 
DISPlAYCTflfil FtFAl SEW 



OCTAL ONLY WHEN CALL PRINT 



IF OPERANOCTQGLE#RJ THEN 

BEGIN 
HRITECPLDBI l#NQMFvXl.nCTAi {R. tl5»6n)» 
FOR l:*l STEP 1 UNTIL 11 DO 

IF BITON(R*I) THEN WRlTEC P# TF* I* 1, -1 ); 
FILL TRf + 1 WTTH ; 



tf H 



%" 



n 






"'XQGXBIT 
">%03*BIT 



OU(NEVER 

01 

02 



USED) 



"*XQ9XBIT 
">*12*BIT 
»>%15%&n 



03 

04 
05 



n 

n 



"'X.18XBIT 
"'X2UBIT 
»»»2aXRIT 



» - M 
"," 



"DIRECTOR'S ffYTOG 

"SEPTICTA"*"NKING 

"BREAKTOG'St? 



"'X27XBIT 
"**30*BIT 
"»X33XBIT 



06 
07 



09 
10 
11 



"*" 

%" 
ft f» 



">X36XBIT 
">*39*B1T 
"'X42XBIT 



12 

13 
14 



"#" 









"*X45XBIT 
"'X48XB1T 
">X5lXBIT 



15 
16 
17 



01824000 
01825000 
Q1826Q0 Q. 



01827000 
01828000 
01829Q0 Q 



01830000 
01831000 
01832000 



01833000 

01834000 

-Q1.835QQQ 



01836000 
01837000 
01838000 



01839000 
01840000 

oi84ionn 



01842000 
01843000 

01844000 



01845000 

01846000 

-01847000 



01848000 
01849000 
Olfl^OQOtL. 



01851000 
01852000 
01653000 



01854000 
01855000 
01856000- 



01856100 
01856200 
01857000- 



01858000 
01859000 
Q1660000 



01861000 
01862000 
0186 3000 



01864000 
01865000 
01866000 



01867000 

01868000 
01669Q0Q 



01870000 
01871000 

. 872QQ Q. 



01873000 
01874000 
01875000 



01876000 
01877000 
01878000 



01879000 
01880000 
01881000 



T< 



8 

9 

10 

11 I 

12 

13 

,4! 

15 

16 

17 i 

18 

19 

20 ( 

21 

22 

23 ' 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 4 

33 

34 

35 { 

36 

37 

38 I 



41 ' 
42 
43 
44 I 
45 



52 

53' 

54 

56 

56 * 

57 



e 



>r 
1 

2 

3 



5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
fl5 

Hb" 

h7 

K 

(19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 ~ 



34 

35 

36 

37 " 

38 

39 

40 

41 

42 



46 
47 



49 
50 
51 
52 
53 
54 
55 
56 

w 



"CDFREE " 
"FINDINGA" 
"SCRATCHD" 



"MCPFREE " 
"INQPTSTO" 

_"PCQ PTSTU " 



"DCWAITIN" 
"SMWSTOpP" 
"MNETFFN" 



"STARTQG " 
"EGGSELEC" 
"REMOtELO" 



"SPQEDNUL" 

"INTFREE " 
"QTRDY 1 



"NOBACKTA" 
"KEYBOARD" 

"BUMPTUTI" 



"ABORTABL" 
"NSECONDR" 



"USERDISK" 
"STQREDY " 
"STACKUSE" 



"SHEETFRE" 

"STATUSBI" 
'HP2Tnr. 



"#*54%Bn 
"»X57»Bir 



18 

19 



"DDRE.SS %" 
"TRFCTHHY". "READY 



"»X63XflIT 

"#X66*BIT 
'VX 6 9X B IT 



21 

22 

-2J_ 



"PPED 
"FPE U 



"'X72XB11 
"t%7f\%RU 



2<* 

25 

-2A. 



"G "," 

"En "*" 



"#X8tXBlT 27 
"'X84XB1T 28 
",*fl7*RTT ?9 



"TSTUPPLD%" 
" GFR£E !V!!_ 



"#*90XBIT 
">X93XBIT 



30 
31 

J2_ 



"LOG 



"J.X99XBIT 33 
"'X102XBIT 34 



"LK 

"READY 
"TIMK 



tl H 



ft _ It 



"E 
"EADY 



">XlQ8XBlT 36 
">X111XBIT 37 



If . « 



"»*U7*BlT 39 
"#X120*BIT 40 



"HEADY 



,.,,. 



"E 
"T 



t* M 
ft . M 



">X126XBIT 42 
"/X129XXU1T 43 
"i*132»BIT 44 



"/X135XBIT 45 
">X138X6IT 46 
"UmitBiT 47 



FOR I« = 12, 13*14, 21 i)T£P 1 UNTIL 47 DO 
BEGIN 
HRTTFf I INEr*3iTFXIM»RF<u.(BlTnNfR»in)? 



M0VC(TB[3xn,0*LINEC2]*4>3»0); 
WRITE(PtDBL3»6*LINEC*])J 



fn o; 



end; 

01 splay (nqprqcesstog* fause)' 



dumparrayctar); 

01SPLAYCT0GLE. FALSE); 
NE XTI TEMJ 



X FOR COMPARISON 



NEXTPAGEi 

DISPLAY(OPTIO\#FALiiE); 

IF QPERAND(0PTI0N/R) THE N 



BEGIN 

IF BITQNCR*!) THEN 
WRITEtP*TF#l#lf*n; 



FILL TBL*] WITH 

"USEDRA"," 
" UStDRB'%" 



"BOJMES","S 
"EOJMES%"S 
"OPNMFS"*"S 



"TERMGO'S" 

"GIVEOA","TE 

W GIV ETI">"MF 



"SAMEBR"#"EAKTAP"#"E «, 
w AUTOPR ,, #"INT *S" "> 
"CLEARW">"RS» ST H »"OPUNT "» 



01682000 
Ol8o3000 
018 840 00, 



01885000 

01886000 
niBft7nnn 



01888000 
01889000 
01990000 



li 



01691000 
01892000 
01693000 



01894000 
01695000 
01896Q0 Q 



01897000 

01898000 
0189900Q 



01900000 
01901000 
0190 2 000 - 



01903000 
01904000 
01905000- 



01906000 
01907000 
0l90flQ0U. 



01909000 
01910000 
OlVllOOO 



01912000 
01913000 
01914000 



01915000 
01916000 
01917000 



01918000 
01918200 

Q1919QQQ 



01919100 
01919200 
01919300 



01919400 
01920000 
019^1000 



01922000 
01924000 
01925000 



01926000 
01927000 
Ql9<8000- 



01929000 
01930000 
01931000 



01932000 
01933000 
01 9 34000- 



01935000 
01936000 
01937QQQ 



"DISCON"»"DC# 
t, COPNN«E%"SS 

"CLQSFM%"FSS 



NO"#"nFYOP% 



"ERRORM*** w Sg 

"RETMSG'S" 

n LIBMSG w Y" 






W^* 



01938000 
01939000 
19. 40 000 



01941000 
01942000 
01943000 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 



41 
42 

43* 



45 
46 
47 
48 



49 
SO 

51 
52 
53 

54 
55 
56 



"5CHEDM"#»3G 
"SECMSG"*" 
"OSKTCG"*" 



M RELTCG M »" "* 

w PB0REL M > M "> 

"CHECKt W «MNK »» 



"DISKMS"*"5. 



"NOT 
"NOT 



US' 



'ED 



U . S"j"E D 



w USiPfiO ,, > 



"SVPBT 
"PSTGG 



%w 



"AUT01N'S"LD "# 

"RNALL "#" "> 

"CQDECL ,, *"AY !Li_ 



"C8REST%" 
"DATAOL"#"AY 
"NOT US W >"EQ 



« , 



"NOT 
"N8T 
"NOT 



US'V'ED 
US'S»ED 
US W < W E.I3 



"N0T US%"ED 
"STQPTt»% M ST 
w PUNCHl w » " C * 



"CQUNLY%" 

"PKTCNL%"Y 

W SFPARA W »"TF 



"NOT US%"£D "; 

WRITE(P,TF*2,R.r2slJ»2*"MDD3lO","S 
FOR Il«3 STEP 1 UNTIL 3b DO 



") 



WRITECP»TF#I#REALC8IT0N(B»li)#2» 

TBCA*"28 + 2xC35-n3*TB[A + l] ); 
FOR limit STEP 1 UNTIL 39 QQ 



WRITE(P#TF»I»REAL(8IT0N(RM))#3# 

TBCA»»l6+3x(39-I)3,TBCA+l],TBEA+2 3); 
FOR I»*40 STEP \ UNTIL 4/ 00 



end; 



WRITECP,TF,I,REAL<8ITQNCK,I)),2, 
TBCA»«2X(<,7-I)J*TBCA + 1])J 



nextitem; 

di splayc mess ageholoer* FALSE 3 i 

i j=o; 



IF OpfRAND(MESSAGEHOLDER»R) ANQ (r:sR.CF)/0 Th£N 

DO 

BEGIN 



WRlTE(LlNEt*3,lTEM#0CTALtR)» 
OCTALCWIHALF(R))*OCTALtLOHALF(R))# M n )i 

MOVD(MC(R->n t ROw#(R»n.COL3«LlNE[4 3vMlNC9>MAXCOR*R)); 



WRITE(PM5»LINE£*]); 
END 
UNTIL 



CXI»I + 1>. GEQ MAXMESSAGES 
NOT OPERAND(R#R) OR 
CRt»R.FF)gQ - 



OR 



01944000 
01945000 
Q 1946000- 



01947000 

01948000 

.01949000 



01950000 
01950100 
01950200 



01951000 
01952000 
0l9«il0Q0 



01954000 
01955000 
01955100 



01955200 
01955300 
01955 305 



01955310 
01955320 
0195533Q. 



01955340 
01955350 
01955360 



01955370 
01955380 
Q 1955 390. 



01955400 
01956000 
01960000 



01961000 
01962000 
01963Q0Q 



01964000 
01965000 
01966Q0Q 



01967000 
01968000 
01969QQ0 



01970000 
01971000 
01972000 



01973000 
01974000 
01975000 



01976000 

01977000 
01978QO0 



01979000 

01980000 
01981000 



01982000 

01983000 
01984000 



h- 



ELSE WRITE<P'NULI>'ESSA(»ES)# 
IF DATACOM THEN 

BEGI N 



printouelecstationmessageholoer.o); 

PRlNTQUEUEaOOKQM); 
PRlNTQllEI,)EfOM9Q»g)t 



PRINTOUEUrCPINGO»0); 
PRINTQUEUECILL»(0«3 CTF)); 
I F R J E ThEN 



PRINT0U|UE(RJE^AlT9»0)i 

nextpage; 



fnd 



for i»so step 1 until is do parqhcotatiqn* i } j 
nextpage; 

Fl.SF NEXTlTfM; 



displaY(Nslate>false); 
displayclslate»falS£); 

IF VARIFYfSLATFfA.S.TPUri 



_AML 



S.[fl7lUaO AND 
OPERANOCNSLATE'N) 

n,m mi^n and 



AND 



N<S AND 
N.[47J13«0 AND 
OPElAMPfL SL A T r > I ) 



AM U 



L.Cl'8]=0 AND 
L<S AND 
L.U7I1 ]=n ANn 



L*N 
DO 
BEGIN 



THEN 



N»=REAL(BOOLEAN(N + i>) AND BQULEANC S- l ) ) i 

WRITE(LINEC*]*SE^OCTALCN), 
QCTALCHlHAl F(A + H)),OCTAI CLUHAl FtA + M». 

QCTAL(HIHALF(A+N+l))#UCTALCR:»LOHALF CA+N+1 ))}J 
IF 129SCR:sR,cF) AND RSPRTMAX THEN 
HOVECNAHSrNAMrrtn.CM.LlNFM]. 



NAME CHI. FF)i 
WRITE(P#15*LINEC*J); 
END UNTIL N» L 



ELSE WRITECP,NULL3LAT£}* 

next item* nextpage; 

sgltogi»true; 



IF TINU0K:=VERIFY(TINU>TAWS) AND 

VERIFY(MULTITABLE*MA,MS) AND 
VERIFY(LABELTABLE»LA»LS) AND 



VERlFY(ROCTABLE»RA#RS) AND 
VERIFY(PRNTA8LE#PA»PS) THEN 
BEGIN 



S:=MAXCTS,Mi>#LS#RSj»PS)-i; 

WRITECP* IGATH); 

FOR H=Q STEP 1 UNTIL S DO 



BEGIN 

WRlTE(TBC*J#LUN#OCTALCn); 
IF KTS THEN 



BEGIN 

WRITECLINEC*]>FT> 

t AI«HTHAI FCTA+I )) t r?ai.^. 



0CTAL(A.C27i5J), 

A t C32«3J# 

flCTAI (A.n5i71)i 



O1965O00 
01985100 

CU985105 
01985J20 
01965150 
01985200 



01985250 
01985300 
19 85 350 



01985375 
01985380 
019H5385 



01985390 
01966000 
019 8 61 00 



01987000 
01988000 
01969Q0Q 



01990000 

01991000 

■ 01992000- 



01993000 
01994000 
Qi995nnn 



01996000 
01997000 
01996000, 



01999000 
02000000 
Q2P010QQ. 



02002000 
02OO3000 

n? ooq oo.o_ 



02005000 
02006000 
Q20Q7000. 



02008000 
02009000 
2010 000 



02011000 
02012000 
Q20121QQ 



02013000 
02O14000 
02015000 



02016000 
02017000 
02018000 



02019000 
02020000 
02021000 



02022000 
02023000 
020 ^4000 



02025000 
02026000 
02027000 



02028000 
02029000 
02030000 



18 
19 



23 ( 



26 



30 
31 



33 
34 

35 I 



41 I 
42 



52 



h- 



CCTALCA. [42:63 ), 

( a:*L0HALF(TA+I)),C24 U J* 

C TA L ( A.C 25 » 5 J )t 



A. [30:183); 
M0VCCLlNE[0]#0#TBtn»l»2#6)J 



02031000 

02032000 

- Q2«3 3000 



jiunx. 



0203*000 
02035000 
020360.00- 



IF I<MS THEN 

M0VC(M[CMA + I>,R0W#CM + i) f CUl.]*0#TBU]#5»l*0>; 
IF T<I,S THFIN _^ 



02037000 
02^38000 
02Q3900IL 



10 

11 

12 
13 
14 

15 
16 
17 
18 
19 
20 
21 
22 



MOVC (H [ CLA+ I ), ROW, (LA+IJ. COL 3 >0»T8 [63*3*1*0); 

IF I<RS THEN 

BFfilh 



02040000 
02041000 
02042000, 



HRITE(LINE[*3».RT» 

DCTAL(CA:=HIhALF Cra+1)). [24:83)* 
ncTAI CA.t 3?861 )t 



OCTAL(A t C3fttl03)* 
0CTAU(CAl*LOHALFCRA4l)) 



02043000 
02044000 
02005000 



[24»173)» 



02046000 
02047000 

0204804X0- 



23 
24 
25 
26 
27 
28 



29 

30 



31 
32 
33 
34 
35 
36 



MCVC(LINE[0J*0* TB[8J* 1*2*6)* 

end; 

if kps thf.n ^___ 



02049Q00 
02050000 
Q2Q510Q.Q- 



BEGIN 



WRlTE<liNEt*3*PT* 
( AfH IHALFtP A+ I)? 



r24ll J» 



02052000 

02053000 
0PQS4O0 Q 



A. [25:13* 

CCTALCA.C26S 1 3 J J* 

OCT ALU AU1.0HAI.F (PAtl UAI 15:39:91) 



1 .15*151 ),t 



02055000 
020^)6000 

OJiZj 



-02 



DCfALCA. [301183)); 
M0VC(LlNE[03*Q*TB[ 11 3*5*2*6)* 



-coa- 



EN Of 



02058000 
02059000 

Q?Q6QXinfl- 



*RITE(P*15*TB[*3); 



ENDi 



end; 



nextpage; 

d i splay cioqueslots* false); 

1 spla y( i qque avails false); 



02061000 
02062000 
020 63000 



IF VERIFYCUMT'UA'US) AND 
VERIFY(ICGUL#IA*IS) AND 
VERI FY(I D CATQUE * LA*L5) A'Mp 



02064000 
02064500 
0206 5 000 



02066000 
02067000 
02O68QQ0 



37 
38 



VERIFY(FIKALQUE>FA#F5> then 
BEGIN 

Sl»HAX ( U S > l S # 1 .S f Fg ?-i; 



02069000 
02070000 
Q 207 1000 



40 
41 
42 



WRITE(P*IQQSh); 
FOR I«=0 STEP 1 
BEGIN 



UNTIL S DO 



02072000 
02073000 
02074Q0Q 



43 
44 
45 
46 
47 
48 



writectbc*3*ifo*octal<i)*if tinuqk then 

lohalfcta+i),c30»183 else "***«)** 
. if kus then 



02075000 
02076000 
0?Q77000 



49 

50 



51 
52 
53 
54 



BEGIN 

WRITE(U1NEC*3*UFU# 
Ca8*HTHALFC|,|A>U). [24:11 



0CTAL(A.C25I43)# 
0CTAL(A.t29»83)# 
A T t37:l3* __ 



02078000 
02079000 
Q 209 Q0QQ 



02081000 
02082000 
Q2Q830QQ 



55 
56 



A . C 38 : 1 3 * 
A, [39113* 
A,r40l2], 



02084000 

02085000 

n?oa6nn n 



DCTALCCAl«L0MALFCUA+I)4Atl8«A2l6l)«C18ll53)# 

QCTAL(A.C33I153)); 

M0VC(LINE[Q3*0*T8C13»4*3*4); 



02087000 
02088000 
2089 QQ Q 



^r 



end; 

IF KIS 
BEGIN 



THEN 



WRITE(LINEE*3*WFU# 
OCTALCHlHALFCIA+I))^ 
nrTAi fi QMAL£HA±JJ-lli 



020*0000 
020V1000 
02QV2QOO-. 



02093000 
02094000 
02095000 



mc!vcuinl[0j»0mbc5w>2>1); 
end; 

IF I < L S Th P. fM 



02^96000 
02097000 
02098000 



i 

8 

9 
10 
11 
12 
13 
14 
15 



BEGIN 

hRlTECLINE£*3iLFQ# 
(a:»HIHALF(LA+I)).[24;33> 



02099000 



02 
_Q_2 



00000 
01QOQ 



CCTALCA. [27:53), 

CCTALCA.C3.2*43)» 
0CTALCA.[36I6])> 



02 

02 

-02 



02000 
03000 
04000 



18 
19 
20 



22 
23 
24 
25 
26 



27 
28 
29 
30 
31 
32 
33 



0CTALCCA**L0HAtFCLA + I)SAC18«42«63 }.[18U5 3)> 
QCTAL(A.C33ll5J)>J 
M0VCfLINEr03»0»TBr83>7»g>6 1J 



02 

02 

J12 



05000 
06000 
07 Q0Q 



end; 

IF KFS 

BFGIN 



THEN 



02 

02 

-02 



08000 
09000 

-loooh 



WRITE(LINEC*3,WF(J, 
OCTALCHIHALF(FA+I))* 
OCTALd-OHALFfFAtl)) )i 



MCVC(LlNEtOj#0#ld[12JM/2M)i 

end; 

WRlTECPM5fTBC»13J 



02 
02 

-0-2- 



02 

02 

-02- 



UOOO 
12000 

-L3O04- 



14000 
15000 
4-6000 



end; 
nextitem; 

PRINTARRAY(ChANMF t ) 



02 

02 

-02 



17000 
17050 
171QQ 



nextitem; 
dispuy(diskcunt# false); 

IF nrx THEN flEfilN 



02 

02 
-02 



17125 
17150 
1 71 5 5 



34 
35 
36 



displayceuw, false); 

PRINTARRAYCIUS)* 

e n d; 



02 
02 

-02 



IF SHAREDISK then 
BEGIN 

NFXTITE M ; 



17160 
17200 
17205 



02 

02 

-02 



17400 
17410 
HiL20- 



37 
38 
39 



DISPLAYCLQAVAIL>FALSE); 

IF VARIFY(LQUE'UA,US#TRUE) AND 

DPFRANntl CAVATI .FA) AND FA fiEQ 



AND FA LFQ US THFN 



02 

02 

-02 



17430 
17440 
17450 



42 



IF FA = ThEN WRITECP'NUltQUE) Eli>E 
BEGIN 
HRTTE(PCDRL1>l.ftUFHDH3? ____ 



02 
02 

-02 



17460 
i7470 
174R0 



S I «* I N-<20#FA'*i )*'■■-■ 

FOR C«=0 STEP 1 UNTIL S DO 

IF NHT 0PFRANnfl , lA + C,Ll PR (l,t»l..t)i7H GFQ ISA T"FM 



02 

02 

-05. 



17490 
17500 
1 7510 



46 
47 



WRITECP'BADLQUENTRY/OCTAL(C>>QCTAL(HlHALFCL))> 02 

OCTAL(LOHALFCL))) ELSE 02 

WRTTF(P^FL0UFfUCTAL(C)tQCTAI.ri.A)»L.[fll41»i .[128 361 ) 02- 



17520 
17530 
17540 



49 
50 
51 
52 
53 
54 
55 
56 
f7 



END ELSE 

end lque; 
end; 



WRITECP'BADLQUE); 



END 



cgmmun«=comsave; 
sgltog«*false; 
d ump i ng mcp i nfu; 



02 

02 

-02 



17550 
17560 
1B000 



PROCEDURE DUMPAUXMEM; 
BEGIN 

FORMAT AUXCDR'SAl*" MEMORY DUMP'*)* 



02 

02 

-02 



18100 
18200 
19000 



02 

02 

J02. 



19100 
19110 
19120 



h 



12 
13 
14 

15 

IS 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 "" 

38 

39 



40 
I 41 
42 
43 
I 44 
45 
46 
«7 
48 
49 
50 
51 
52 
53 
54 
55 
56 



AUXMESSC"* PRINTING CONTENTS OF UK",A1»' 
LABEL TRYAN0THER#EXIT> 
-ROni FAN COMSAVt'; 



')} 



reload«*true; 

TRYANOTHERlt 
tf Nnwn Turk so 



02119130 
02X19140 

02 U9H 2 - 



FXTT 



nextpage; 
load; 

IF AUXTYPF . 



02119145 

02119150 

J)?119j6lQ- 



NFQ THEN X AUXMFM HRESFNT 



BEGIN 



02119170 
02119180 
0211919IL 



nextitem * 

HRlTEtPfAUX>16+AUXTYP£ DIV 4 )J 



write(spq*auxmess*16+auxtype 
nextitev; 

CQMSAVEl*CO MMa N; 



DIV 4)i 



02119200 

02119210 

j&2HA22fl- 



C0MM6NfsBUQLEAN(5l2)J 
PRINTCO, 32768); 
COMMON i«C QMS AVE; 



% ALPHA/OCTAL 



02119230 
02119240 
Q2U9244. 



go tryanother; 
end; 
exit»reload:=false; 



02H9245 
02119250 
02119255 



end dumpauxmem; 
procedure fixfid; 
begin 



02U9260 
02119270 
2 119 2 8JL 



real a; 

FORMAT FNEhFlLE("*NExr FILE TO bE ANALYZED 
.S TREAM PRflCFmiRF M TNllS 1 ( IM , A 3 i \/AlliF Mi 



02119290 
02H9300 
02119310 



IS MEMORY/", A1#A6); 



begin sijctoc n; sissSi+s; dusa; dis«di+5; os$*3 sub end 

MlNUSlClfTOFlD); 
-J-liJ MptlMP WITH *»TDFID? 



02119320 
02119330 
02 1 1934Q. 



writecsp0»fnewfile*tdfid.c0»6]»tdfid); 
end; 

FORMAT COl HnRfWdSSOO r.QlUTING aEQIiP NCF "/ /* ,<> »n 1 2 34567"/ 1 . 



02119350 
02119360 
021 1 9370 



FPUNTC*HANG CAUSED BYJ H ,X24)> 

C0LlNE(X5»H#X2#Xfl)i 
ARRAY C0LLATEr0>7i; 



02119380 
02119390 
02 1 19500 



INTEGER DUMPD; 
PROCEDURE INITIALIZE; 
CnMMENT»ZFRQ VARIAB1 FS 



02119505 
02U9510 
Q21196.£jQ_ 



PROCESSED IN A GIVEN RUN; 

BEGIN 

INTEGER K,j; 



& ARRAYS In THE FVFNT MORE THAN UNF. F I L F IS 



02120000 
02120100 

.02 12 0110 



label exit; 

if not reload then 

commentsZeRQ Reals 



02120H5 
02120120 
02120125 



go exit; 
& integers; 



I J» 

RJs 

VJOBNUMi 



02120130 
02120135 
02120140 



VBEDJ* 

tablesloci= 



02120145 
02120150 
02120155 



MINLNKJ* 
MINBADJ* 
MAXBADI» 



021^0160 
02120165 
Q 2 12017Q 



MAXLNK ! = 
PRTCODE:= 

o; 



02120175 
02120180 
02120185 



MAXMCPRQGJ* 

ESPi* 

BAOSAVEPRTLOCja 



02120190 
02120195 
0212020 



02120205 
02120210 
02120215 



X< 



jj 



>T 



5 
6 
7 
8 
9 
10 



12 
|13J 
]l4 
15 
16 
17 

In 



INTSPMAX:= 
PR0W$:= 

o; 



MAXSTKt* 
PEDSTK:= 
DUMPD:= 



o; 

COGENT 
L M K S K ! ; 



MAKt ROi'LFAhS (?AuL ; L/ 



AVALNKOMs 

somokf:* 

SOMOKBl* 



needcheckavailnks;= 
false; 

.RAnCQMMFNTt= 



false; 

commentjzero arsays; 

JLQB_M"fl_SIE P 1 U NTIL 



MIXMAX nc 



XQE. 



MIXSTKCK] U 

o; 

KI*XLSTFP 1 UNTIL 



1HAMES17.E-1 nn 



INTSPCK3 l« 

o; 



EXIT* 



end initialize; 
restart:** 
in i tia lize; 



load; 

dumpmcpsprt; 
tp mot rnMMHM 



TH EN 



if dumpcesspoolonly 

BEGIN 



THEN 



go eoprog; 
end; 

TF NOT CQMMHN THFfc 



begin 

checkmemorylinks; 

GETSTACKSFRQyTHEBFP; 



end; 



getandsortmcprog; 

IF CQMNT THEN BEGIN 



writecpcdblJjSTars); 
if not common then 

IF OPFRANrU lC7,PRnhS) AND 



02:1*0220 
0212022b 

JOZ12.0.23.0... 



0212023b 
021202/10 
0P12024S 



0^120300 
2 1 * 4 
021204(^. 



02120410 
0212041b 



02120425 
02120430 
02 12 4 3b 



02120500 
02120600 
021206 05 



02120610 

02120615 

- 02 12 065 



02120655 
02120660 
02120700- 



02120705 
02120900 
02120910. 



0212J.000 
02122000 
21 cZ 50 



02122100 
02122200 
02122300. 



02122400 
02122500 
02123000 



021*4000 
02125000 
2 1*60 00 



02126500 
02127000 
02128000 



IF PDaTaDESC(PUNTER»R) 
BEGIN 
I t»R« C8-t 10-31 



PRUwS NEQ »EEEE"&"EEFF"[H?b:?.n ThFN 



AND R*CF LSS 4096 THEN 



02129000 
021*9050 
02129100 



RJ=RtCF; 
IF PROWS 
BEGIN 



02129H0 
02129120 
02129130 



GEO R AND PK0W5 LEQ R + I THEN 



WRITECLlNEt*3*FPUNT); 

MO*D(MCPROWS.ROH#PROhS.COL3#LIN£t2 3#3); 
KRITECPCDBL3^l5»UlN£C*i); 



021*9140 
02129150 
02129160 



END, 



02129170 
02129180 
02129190 



end; 



IF BADCOMMENT THEN ftHlTEC PC 0Bl3 » CQMNT PAR ) ElSE 
BEGIN 

WRITE(P*10*C0MMTC*3 )i 
HQVF<CnMWTtlni*C0MMT[O3#ln); 



02129200 
02129210 
0213000 



02131000 
02132000 
02133000 



n 

3 



10 
11 I 
12 
13 



18 

19 

20 | 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 { 

33 

34 

35 ( 

36 

37 

38 i 

39 

40 

41 I 

42 

43 

44 % 

45 

46 



49 
50 ( 
51 
52 
53 { 
54 
55 
56 i 
57, 



# 
# 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

29 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 _ 

38 

39 



40 
41 
42 
43 



• 
• 



45 
46 
47 
48 
49 



52 
53 
54 

55 
56 



EN0> 
IF NOT 
BFGlN 



WRITECP* 1OC0MMTC* J )i 

emd; 

WRTTFtPLPAfit- UJxlARixX* 



COMMON THEN 



IF NODUMP THEN EL^t 
IF OPERANDI 16*R> AND 
THEN HKfiTN 



K GLQ 12 A NO R LE'* 15 



AVALNKOK. 



NEEDCHECKAvAILNKSSsNOT 
PRINT(0>R)J 

IF nPFR ANDCl07_P«n„S_ Amn PRt,,«S a "HLrr»&nrc tf»[ i t ?s ; 3 3 ) 

fHEN IF OPERAND(R+96>PR0wS) AND PHdwS i\EC "EEE t "i, "EEEE" 1 1 



THEN WRITECPCDBU'ITEM, OCTALt rt)>QClALCHlhALFCPrtUfcS:»R + 96j)» 
OX-LAJ CI CHAl FCPKflh.S? ) Li 



25:23] 



oontprintlinksj*truf; 

PRINTCR+1»16); 

ENn _!__ E___c___i 



DONTPRINTLINKS:=TRU_; 

IF NOUUMP THEN ELSE 

TF MINI NK GTR Di_-P__a_ 



THFN 



BEGIN 



dumpqisminlnk; 

PRINT. 36.64)1 _ 



TNTFRRUPT CUHF 



PRINT(64,112); X INTERRUPT 
PRINTC U2*PRTMAX+1); * PRT 
-IF NOT NOMCPcnnE THFN 



STACK 



IF CR«sOuTERBLOCKC03)*0 THEN PRINT C 36, WlNLivK ) ELSE 
BEGIN 

PRlNTf r.tf. K.rr* m _ o___jjk_ 



END. 



OUMPMCPSAVECODE; * SAVt PROCEDURES/ARRAYS 



_____ 



dontprintlinksjsfalse; 
if lnks0k then 

^umpmemoryanokotestacks(minlnk*dumpusamax l nk) 



ELSE 
BEGIN 
IF 



SOMQKF THFI. 



DUMPMEMORYANONOTESTACKStUUMPD#OUMPD! 
IF SOMOKB THEN 
8EGIN 



'MINBAO); 



end; 



PRINT(DUMPD'MAXBAD); 
DUMPMEMORYANDNOTESrACKS(^AXaAO»OUMPc«-MAXLNK)# 



end; 

end; x if not common 

PftINT(DUMPD.MAXCnR+n; 



IF NODUMP THEN 
BEGIN 

NODUMPTQfil-TRUE; 



C0MM0NI»C0MMCN 

end; 

if not common then 



AND NOT 80QI-ANC384); 



BEGIN 

listmcprog; 
dumpmcpinfo; 



getsortandlistintrinsics; 
dumprqgrams; 

dumpcqntr qlstacks; 



021 34000 
021 35000 



0213/000 
02137100 
02117-200. 



02138000 

O2UV000 

_2__.0Q_.2_ 



02141000 

02142000 

J_2_______L 



02142120 
02142200 

02142250 



02142260 

02142300 

_______ 



02143100 

02144000 

- 02145Q00 - 



02146000 
02147000 

Q2i4flnnn 



0214900C 

02149100 

02 149 200- 

02149300 

02149350 

n?l4 9AQQ. 

02149450 

021-000C 

CVl-ijDQSQ. 



02150075 
02151000 
02152000 



02153000 
02154000 
Q 21S5Q Q0 



02156000 
Q2157000 
02158000 



02160000 
02161000 
02162000 



02163000 
02163100 

02165Q0Q 



02105100 
02165110 
02165 12-.. 



02165130 
02165140 
02166Q0Q 



02167000 
02168000 
02169000 



02170000 
02171000 
02172000 



li 



9 
10 
11 
12 

13 

14 

15 

16 

17 I 

18 

19 

20 I 

21 

22 

23 ( 

24 

25 

26 i 

27 

28 

29 ( 

30 

31 

32 t 

33 

34 

35 i 

36 

37 

38 i 

39 

40 

4,1 

42 

43 

44 " 

45 



46 

47 

48 

49 

50 i 

51 

52 

53 < 

54 

55 

56 I 

57 



B 



13 



us 
he" 

r 7 

|18 
19 
20 
21 
22 
23 
24 
25 
26 
27 






28 



JO 
31 



32 



34 
35 



39 



• 



41 
42 
43 
44 
45 
46 
47 
t8 
49 
50 

si 

52 
53 
54 
55 



eno; 



printselectecarkays; 
dumpauxmem; 



EOPROGU 

FILL COLLATECO WITH 
- CICTQQQlQ?n 304050607 > 



0CT101112l3l4l516l7# 
0CT202l2223242526?7i 
0CT303l3?l:n4^'n637» 



0CT4041*24344454647# 
0CT5051325354555657, 
nrTftOfSiAPA^ztARAA*?. 



0CT707l727374757677i 

WRITECPCPAGEJ); 

WRITE(PjCQLHDR); 



FOR H*0 STEP 1 UNTIL 7 00 
BEGIN 

HRITECLIN£[*3,CQLINE,1H 



fnd; 



M0VE(C0LLATE[I3*LINE[1 JM )) 
WRITE(P'2/LINEC*]); 



IF MULTI AND TDFlO ♦ C 30*18 ] GTR 1 THEN 
BEGIN 
IF NnT RFPFATING THEN 



BEGIN 



repeatingi=true; 
SPACE(MD>.iMPt- lnxxixx]; 



xx»close(mdump»*); 
end; 
nxrrn; 



relqad»=true; 
printcommonvalues; 

WRITE(P[DBL3); WRITE(P[QBL]); 



writecp>fini>; 

nextpage; 

if nooumptqg then begin 



nodumptog;=false; 
common:=commcn or 
mystackadrj=-i; 



BOOLEANC J64) tNO. 



end; 
end;x 



go restart; 



02172100 
021/2200 

n2.nooo 



02173400 
02173500 
02173510 



02173520 
02173530 
03W35 /1 



02173550 
02173560 
02 1 73570 



02173580 
02173590 
02 173 600 



02173610 
021? 3620 
021736.10 



02173640 
02173650 
0217 3 660- 



02173700 
02173710 
02173720- 



02173730 
02173740 
02 1 7 3 75 



02173760 
02173770 
n?1737Rfi 



02U3790 
02173791 
Qfcl7379? 



02173793 
02173795 
02173796 



02173797 
02173798 
02173799 



%%%%%%%%%%% JUQ inner block I % %%%%%%%%% 



PRINTCOMMONVALUES; 

WRITE(PCDBLJ);WRITE(P[DBL]); 

WRITF£P,FINI); 

END, 

END;END. LAST CARD ON QCRDING TAPE 
: OOOOOooooooonrmcnx^Aanxr 



02173800 
02173810 
02174000 



021M500 
02175000 
02176000 



02178000 
99999999 



< 



13 



• 
• 



44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
65 
58 < 

3 



LABEL 000000000PRlMER0017b098CC EXECUTE J8JECT/READ; FILE 5UURCEF ILE = bYMB(jL/DUMpANL; END«- 



OBjECT /read 
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IB 
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21 
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24 
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27 
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10 
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33 

34 
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36 
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45 
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47 
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53 
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41 
• 



28 



• 
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31 
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34 
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36 

37 
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39 
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41 
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43 

44 

45 
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47 

48 

49 
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52 
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54 
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